DECLARE SUB A(n)
DECLARE SUB B(n)
SUB A(n)
IF n>0 THEN B(n)
END SUB
SUB B(n)
PRINT "@"
IF n>1 THEN A(n-1)
END SUB
DECLARE SUB A(N)
DECLARE SUB B(N)
SUB A(N)
IF N MOD 3 = 0 THEN
B(N-3)
ELSE
B(N+2)
ENDIF
END SUB
SUB B(N)
PRINT "@"
IF N > 0 THEN A(N-1)
END SUB
DECLARE SUB A(n)
DECLARE SUB B(n)
SUB A(n)
IF n>=4 THEN B(n-3)
END SUB
SUB B(n)
PRINT "@"
IF n>1 THEN A(n+1)
END SUB
DECLARE SUB A(N)
DECLARE SUB B(N)
SUB A(N)
IF N MOD 2 = 0 THEN
B(N-1)
ELSE
B(N+1)
ENDIF
END SUB
SUB B(N)
PRINT "@"
IF N > 0 THEN A(N-3)
END SUB
DECLARE SUB A(n)
DECLARE SUB B(n)
SUB A(n)
IF n>0 THEN B(n-1)
END SUB
SUB B(n)
PRINT "@"
IF n>1 THEN A(n-3)
END SUB
DECLARE SUB A(N)
SUB A(N)
PRINT "@"
IF N>2 THEN A(N-2)
IF N>0 THEN A(N-1)
END SUB