s=" shark";main=putStr(do x<-((++s)<$>words"Baby Mommy Daddy Grandma Grandpa")++["Let's go hunt","Run away","Safe at last","It's the end"];("aaa">>x++',':(s>>" doo")++"\n")++x++"!\n")
Note that non-ascii characters in the above source code will be escaped (such as \x9f).