test6_1 = TestCase (assertEqual "hanoi" ([("a","c"), ("a","b"), ("c","b")]) (hanoi 2 "a" "b" "c"))
test6_1 = TestCase (assertEqual "hanoi" ([("a","c"), ("a","b"), ("c","b")]) (hanoi 2 "a" "b" "c"))
test6_1 = TestCase (assertEqual "hanoi" ([("a","c"), ("a","b"), ("c","b")]) (hanoi 2 "a" "b" "c"))