999 drop 30
             constant size size 0002
         * constant e size 9999 drop 4 -
       s>f fconstant f e 2 * constant s pi
     3.00e f/ fconstant m 00 create buff s e
   * cells allot drop : main m 2.e f* { f: a |
  f: r f: li f: lj x y } page begin s e * 0 +do
 0 buff i cells + ! loop a -00.1e +to a f0< if
 m 2e f* a f+ to a endif 0e to li begin li m 2.e
f* f< while li to lj begin lj m 2.e f* f< while m
0.45e fnegate f/ lj f- 4.0e 9 drop f/ f f* to r r
f fnegate f> if 3 0 +do li a f+ i s>f m 2.000000e
f* f* f+ fsincos r f* 2e f* f>s e + to y r f* f>s
size + to x 1 buff y e * x + cells + ! loop endif
 lj 0.02e f+ to lj repeat li 0.0200000e f+ to li
 \ I am the born of my sword  Steel is my body /
  \   Unknown to Death    Nor known to Life   /
   repeat 00 00 at-xy e \    So as I pray    /
     000 +do s 0000 +do buff i e * j + cells
       \     Unlimited  Blade  Works     /
         + @ 0<> if '#' emit else 00032
             emit endif loop cr loop
                   again ; main




겁나 쓸데없네.