-- http://www.codewars.com/kata/5266876b8f4bf2da9b000362
module Likes where

likes :: [String] -> String
likes [] = "no one likes this"
likes (x:[]) = x++" likes this"
likes (x:y:[]) = x++" and "++y++" like this"
likes (x:y:z:[]) = x++", "++y++" and "++z++" like this"
likes (x:y:zs) = x++", "++y++" and "++show (length zs)++" others like this"