prettyAndList xs  = foldr1 (\x y -> x++", "++y) (init xs) ++ " and "++last xs
prettyAndList xs  = foldr1 (\x y -> x++", "++y) (init xs) ++ " and "++last xs
prettyAndList xs  = foldr1 (\x y -> x++", "++y) (init xs) ++ " and "++last xs