 elements: " ++ show x ++ " and " ++ show y
tell (x:y:_) = "The list is long
tell (x:y:[]) = "The list has two elements: " ++ show x ++ " and " ++ show y
tell (x:y:[]) = "The list has two elements: " ++ show x ++ " and " ++ show y