%%HP: T(1)A(G)F(.);
  LM EC LBC BC C
   1 'LBC' BC GET
1 - DUP
    IF 0 >
    THEN
      FOR I 'C'
INCR 'BE' I GET 3
GET + 'C' STO
      NEXT
    ELSE DROP2
    END 'ECC2' 'C'
INCR EC 2 LIST
'LM' 1 GET PUT
    IF 'BE' 'LBC'
BC GET GET 3 GET
    THEN 'ECC2' 'C'
INCR EC 2 LIST
'LM' 2 GET PUT
    END LM EC 'BE'
'LBC' BC GET GET
DUP 1 2 SUB SWAP 3
GET 'DB' 3 GET
    LM EC EX EE
NA
   EX 1 GET 1 SWAP
NA SWAP POS DUP
    IF 0 
    THEN 'NA' SWAP
GET EC 2 LIST 'M'
SWAP DUP2 GET 'LM'
5 ROLL GET - PUT
    ELSE DROP2
    END LM SIZE
    IF 2 ==
    THEN EX 2 GET 2
SWAP NA SWAP POS
DUP
      IF 0 
      THEN 'NA'
SWAP GET EC 2 LIST
'M' SWAP DUP2 GET
'LM' 5 ROLL GET -
PUT
      ELSE DROP2
      END
    END
  

