likes (x:x':xs) = x ++ ", " ++ x' ++ " and " ++ (show . length $ xs) ++ " others like this"
likes (x:x':xs) = x ++ ", " ++ x' ++ " and " ++ (show . length $ xs) ++ " others like this"
likes (x:x':xs) = x ++ ", " ++ x' ++ " and " ++ (show . length $ xs) ++ " others like this"