module Main (main) where
import GoodList

abc :: GoodList Char
abc = cons 'a' $ cons 'b' $ cons 'c' Empty

main :: IO ()
main = print abc