PROGRAM CHANOI(INPUT,OUTPUT);
TYPE ICHI='A'..'C';
VAR N:INTEGER;
    X,Y,Z:ICHI;

{$I B:HANOI.SRC}

BEGIN
   READLN(N);
   READLN(X,Y,Z);
   HANOI(N,X,Y,Z)
END.