BEGIN NEW A,B,C,D,,I,J,L,ST; MACRO OFF "VERBOS(NIL)"; C:=(6.7*4)/3 + 2**4; A:=C CONS D; B:=<1,2,3>; B:=C:=CDR(A); B:='B; C:='( B (C.A));

PRINT (ST:="AB// 7"@DBQUOTE); PRINTSTR(ST SUBSTR<3,2>); C:=MAKATOM("ASDF//");

LAST:=#L: IF ¬L THEN NIL ELSE IF ¬CDR(L) THEN CAR(L) ELSE LAST(CDR(L));

REVERSE:=#L: BEGIN NEW I,J; FOR I I IN L DO IF ATOM(I) THEN J:=I ¢ J ELSE J:= REVERSE(I) ¢ J; RETURN(J); END;