%%HP: T(1)A(G)F(.);
 10 CHR 0 0 0 0 1
{ }  Typ N A M G T
C L
   DUP DUP SIZE
DUP SUB N 
     N +
     IFT DUP 'G'
STO
    DO G SIZE OVER
SIZE DUP 'T' STO -
1 + 'A' STO 0
      IF Typ 1 ==
      THEN 9
      END
      IF Typ 2 ==
      THEN 7
      END ERASE
      FOR K DUP N
POS OVER 1 3 PICK 1
- SUB Typ GROB
PICT # 0d
        IF Typ 1 ==
        THEN # 6d
        END
        IF Typ 2 ==
        THEN # 8d
        END K * 2
LIST 3 PICK GOR
DROP { # 0d # 0d }
PVIEW 1 + T SUB
      NEXT 0 WAIT
DUP
      IF 25.1 ==
      THEN DROP2 G
L C 1 - DUP 'C' STO
        IFERR GET
        THEN 3
DROPN KILL
        END OVER
SIZE SUB
      ELSE
        IF 35.1 
        THEN DROP
KILL
        ELSE C 1 +
'C' STO
          IF C M >
          THEN C
'M' STO L A + 'L'
STO
          END DUP
        END "" ==
         DROP KILL
         IFT
      END
    UNTIL 0
    END
  

