td1 haskell : repl