99 bottles - coredump

(LAMBDA ()
  (LET (@
        (V48 111111111111111111111111111111111111111111111111)
        (V19 1111111111111111111)
        (V18 111111111111111111)
        (V17 11111111111111111)
        (V11 11111111111)
        (V10 1111111111)
        (V9 111111111)
        (V8 11111111)
        (V7 1111111)
        (V6 111111)
        (V5 11111)
        (V1 1)
        (V2 11)
        (V3 111)
        (V13 1111111111111)
        (V20 11111111111111111111))
    (TAGBODY
     L0
      (SETF V20 (- V20 V20))
      (SETF V13 V3)
      (SETF V13 (- V13 V2))
      (SETF V13 (- V13 V1))
     L9
      (SETF V5 V2)
      (SETF V5 (- V5 V1))
      (SETF V5 (- V5 V1))
      (SETF V5 (- V5 V1))
      (SETF V6 V2)
      (SETF V6 (- (+ V6 V2) V20))
      (SETF V6 (- (+ V6 V2) V20))
     L18
      (SETF V6 (- V6 V1))
      (SETF V6 (- V6 V1))
      (SETF V6 (- V6 V1))
      (SETF V7 V2)
      (SETF V7 (- (+ V7 V2) V20))
      (SETF V7 (- (+ V7 V2) V20))
      (SETF V7 (- (+ V7 V2) V20))
     L27
      (SETF V7 (- V7 V1))
      (SETF V7 (- V7 V1))
      (SETF V7 (- V7 V1))
      (SETF V7 (- V7 V1))
      (SETF V7 (- V7 V1))
      (SETF V7 (- V7 V1))
      (SETF V8 (- (+ V5 V1) V20))
     L36
      (SETF V9 (- (+ V8 V1) V20))
      (SETF V9 (- (+ V9 V1) V20))
      (SETF V10 (- (+ V8 V1) V20))
      (SETF V10 (- (+ V10 V1) V20))
      (SETF V10 (- (+ V10 V1) V20))
     L45
      (SETF V10 (- (+ V10 V1) V20))
      (SETF V10 (- (+ V10 V1) V20))
      (SETF V10 (- (+ V10 V1) V20))
      (SETF V10 (- (+ V10 V1) V20))
      (SETF V10 (- (+ V10 V1) V20))
      (SETF V10 (- (+ V10 V1) V20))
      (SETF V10 (- (+ V10 V1) V20))
      (SETF V10 (- (+ V10 V1) V20))
      (SETF V10 (- (+ V10 V1) V20))
     L54
      (SETF V10 (- (+ V10 V1) V20))
      (SETF V10 (- (+ V10 V1) V20))
      (SETF V10 (- (+ V10 V1) V20))
      (SETF V10 (- (+ V10 V1) V20))
      (SETF V10 (- (+ V10 V1) V20))
      (SETF V10 (- (+ V10 V1) V20))
      (SETF V10 (- (+ V10 V1) V20))
     L63
      (SETF V11 (- (+ V7 V1) V20))
     L72
      (PRINC V13)
      (SETF V17 V8)
      (WHEN (EVERY 'ZEROP (LIST V20)) (SETF @ V7) (GO JMP))
     L81
      (SETF V18 V2)
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- V18 V2))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
     L90
      (PRINC V13)
      (SETF V19 V9)
      (WHEN (EVERY 'ZEROP (LIST V20)) (SETF @ V6) (GO JMP))
     L99
      (SETF V18 V2)
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V2)
      (SETF V18 (- (+ V18 V2) V20))
     L108
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (SETF V18 (- V18 V2))
      (SETF V18 (- V18 V2))
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
     L117
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (SETF V18 (- V18 V2))
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
     L126
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (SETF V18 (- V18 V2))
      (SETF V18 (- (+ V18 V1) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V2)
      (SETF V18 (- (+ V18 V2) V20))
     L135
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- V18 V2))
      (SETF V18 (- (+ V18 V1) V20))
     L144
      (SETF V18 (- (+ V18 V1) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V2)
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (SETF V18 (- V18 V2))
     L153
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- (+ V18 V2) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- V18 V2))
     L162
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V2)
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- V18 V2))
     L171
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (SETF V18 (- (+ V18 V1) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- V18 V2))
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
     L180
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (PRINC (CODE-CHAR (MOD V18 128)))
     L189
      (SETF V18 V2)
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
     L198
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- (+ V18 V2) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V2)
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
     L207
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (SETF V18 (- V18 V2))
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
     L216
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
     L225
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (SETF V18 (- V18 V2))
     L234
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V2)
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- V18 V2))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
     L243
      (SETF V13 (- V13 V1))
      (PRINC V13)
      (SETF V17 V10)
      (WHEN (EVERY 'ZEROP (LIST V20)) (SETF @ V7) (GO JMP))
     L252
      (SETF V18 V2)
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
     L261
      (SETF V18 V2)
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (WHEN (EVERY 'ZEROP (LIST V13)) (SETF @ V48) (GO JMP))
      (WHEN (EVERY 'ZEROP (LIST V20)) (SETF @ V5) (GO JMP))
     L270
      (SETF V18 V2)
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- V18 V1))
     L279
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (SETF V18 (- V18 V2))
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- (+ V18 V1) V20))
     L288
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
     L297
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (SETF V18 (- V18 V2))
      (SETF V18 (- (+ V18 V1) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
     L306
      (SETF V18 (- (+ V18 V1) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V2)
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (PRINC (CODE-CHAR (MOD V18 128)))
     L315
      (SETF V18 (- V18 V2))
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V2)
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
     L324
      (SETF V18 V3)
      (SETF V18 (- V18 V2))
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
     L333
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (WHEN (EVERY 'ZEROP (LIST V20)) (SETF @ V19) (GO JMP))
     L342
      (SETF V19 V11)
      (WHEN (EVERY 'ZEROP (LIST V20)) (SETF @ V6) (GO JMP))
     L351
      (SETF V18 V2)
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (PRINC (CODE-CHAR (MOD V18 128)))
     L360
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V2)
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
      (SETF V18 (- (+ V18 V1) V20))
     L369
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (SETF V18 (- (+ V18 V1) V20))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- V18 V2))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- V18 V1))
     L378
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V2)
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 V3)
     L387
      (SETF V18 (- (+ V18 V2) V20))
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
      (SETF V18 (- V18 V1))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- V18 V2))
      (SETF V18 (- V18 V2))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (SETF V18 (- (+ V18 V2) V20))
     L396
      (PRINC (CODE-CHAR (MOD V18 128)))
      (PRINC (CODE-CHAR (MOD V18 128)))
      (WHEN (EVERY 'ZEROP (LIST V20)) (SETF @ V17) (GO JMP))
      (GO END)
     JMP
      (CASE @
        (0 (GO L0))
        (1 (GO L9))
        (2 (GO L18))
        (3 (GO L27))
        (4 (GO L36))
        (5 (GO L45))
        (6 (GO L54))
        (7 (GO L63))
        (8 (GO L72))
        (9 (GO L81))
        (10 (GO L90))
        (11 (GO L99))
        (12 (GO L108))
        (13 (GO L117))
        (14 (GO L126))
        (15 (GO L135))
        (16 (GO L144))
        (17 (GO L153))
        (18 (GO L162))
        (19 (GO L171))
        (20 (GO L180))
        (21 (GO L189))
        (22 (GO L198))
        (23 (GO L207))
        (24 (GO L216))
        (25 (GO L225))
        (26 (GO L234))
        (27 (GO L243))
        (28 (GO L252))
        (29 (GO L261))
        (30 (GO L270))
        (31 (GO L279))
        (32 (GO L288))
        (33 (GO L297))
        (34 (GO L306))
        (35 (GO L315))
        (36 (GO L324))
        (37 (GO L333))
        (38 (GO L342))
        (39 (GO L351))
        (40 (GO L360))
        (41 (GO L369))
        (42 (GO L378))
        (43 (GO L387))
        (44 (GO L396)))
     END)))