# The Towers Of Hanoi
# Aleph
# Copyright (C) 2002 Amit Singh. All Rights Reserved.
# http://hanoi.kernelthread.com
#
# Tested under Aleph 0.8.1 (http://aleph-lang.org)
# 

trans dohanoi (n f u t) (
    if (== n 1) {
        println f " --> " t
    } {
        dohanoi (- n 1) f t u
        println f " --> " t
        dohanoi (- n 1) u f t
    }

)

trans hanoi (n) (
    dohanoi n 1 2 3
)

hanoi 3