-- returns the tail of a list (all but the first element)
cdr :: [a] -> [a]
cdr [a] = []
cdr [a,b] = [b]
cdr [a,b,c] = [b,c]
cdr [a,b,c,d] = [b,c,d]