trying to implement the thime machine shop from Beginning haskell