13 lines
257 B
Haskell
13 lines
257 B
Haskell
module Main (main) where
|
|
import GoodList
|
|
|
|
abc :: GoodList Char
|
|
abc = cons 'a' $ cons 'b' $ cons 'c' Empty
|
|
def :: GoodList Char
|
|
def = cons 'd' $ cons 'e' $ cons 'f' Empty
|
|
|
|
main :: IO ()
|
|
main = print abc >>
|
|
print def >>
|
|
print (abc `append` def)
|