import Data.List import Random main=newStdGen>>=mapM_ putStrLn.f.(`mod`720).fst.next f n=map(\(x,y)->x++" buys for "++y).zip(l n).tail$cycle$l n l=(permutations(words"Andy Barb Carl Didi Earl Fran")!!)