prettyOrList xs  = foldr1 (\x y -> x++", "++y) (init xs) ++ " or "++last xs
prettyOrList xs  = foldr1 (\x y -> x++", "++y) (init xs) ++ " or "++last xs
prettyOrList xs  = foldr1 (\x y -> x++", "++y) (init xs) ++ " or "++last xs