Simple Haskell Menu System