An experiment of Adept in Haskell (fun stuff!)