 :: Integer -> Peg -> Peg -> Peg -> [Move]
hanoi 1 peg1 peg2 _ = [(peg1, peg2)]
hano
hanoi :: Integer -> Peg -> Peg -> Peg -> [Move]
hanoi 1 peg1 peg2 _ = [(peg1, peg2)]
hanoi 1 peg1 peg2 _ = [(peg1, peg2)]