List a --> [a] Nil --> [] Cons x xs --> x : xs
head :: [a] -> a head (x:xs) = x tail :: [a] -> [a] tail (x:xs) = xs