done recursive hanoi with haskell