Haskell: hanoi