*DECK LIT 
      FUNC LIT ((SL), STR, (VL), VAL) I ; 
*CALL COMLIT
