fn.def move(n, a$, b$, c$) 
if n > 0 then
   a = move(n-1, a$, c$, b$)
   print "Move disk from " ; a$ ; " to " ; c$
   a = move(n-1, b$, a$, c$)
endif
fn.end
a = move(4, "1", "2", "3")
print "That's all folks"