print "Move disk $num from $from to $to\n"; movedisks( $num-1, $aux, $to, $from );