#!/usr/bin/env newlisp

;; module ascii-impact.lsp
;; An example of ascii art; the font Impact at 60pt converted to ascii art
;; See post Jack the Glypher for details.
;; Usage: (message "text")
;; Requires newLISP version 9.2. (dostring)

(context 'Impact60)

(set 'glyph100 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"       $$$$$" 
" 7$$$$$$$$$$"
" $$$$$ $$$$$"
" $$$$$ $$$$$"
" $$$$$ $$$$$"
" $$$$$ $$$$$" 
"  %$$$ $$$$$"
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph101 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            " 
"  $$$$$$$$% "
" $$$$$ $$$$$"
" $$$$$$$$$$$"
" $$$$$ s$$$$"
" @$$$$ $$$$$" 
"   ,$$$$$&  "
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph102 '("        "
"        "
"        "
"        "
"        " 
"        "
"        "
"        "
" 0$$$$$6"
"$$$$$$$6"
" #$$$$  " 
" #$$$$  "
" #$$$$  "
" #$$$$  "
" %$$$$  "
"        "
"        " 
"        "
"        "
"        "
"        "
"        "
"        " 
"        "))

(set 'glyph103 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            " 
" i$$$$$$$$$$"
" $$$$$ $$$$$"
" $$$$$ $$$$$"
" $$$$$ $$$$$"
"  $$$$$$$$$$" 
" $$$$$@$$$$$"
"    s%%8+   "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph104 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
" $$$$$      " 
" $$$$$$$$$$$"
" $$$$$ s$$$$"
" $$$$$ s$$$$"
" $$$$$ s$$$$"
" $$$$$ s$$$$" 
" $$$$$ 0$$$$"
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph105 '("      "
"      "
"      "
"      "
"      "
"      " 
"      "
"      "
" $$$$$"
" $$$$$"
" $$$$$"
" $$$$$"
" $$$$$" 
" $$$$$"
" $$$$$"
"      "
"      "
"      "
"      "
"      " 
"      "
"      "
"      "
"      "))

(set 'glyph106 '("      "
"      "
"      "
"      "
"      "
"      " 
"      "
"      "
" #$$$$"
" #$$$$"
" #$$$$"
" #$$$$"
" #$$$$" 
" #$$$$"
"$$$$$$"
"      "
"      "
"      "
"      "
"      " 
"      "
"      "
"      "
"      "))

(set 'glyph107 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
" $$$$$      " 
" $$$$$ $$$$;"
" $$$$$$$$$. "
" $$$$$$$$$  "
" $$$$$$$$$8 "
" $$$$$=$$$$0" 
" $$$$$ %$$$$"
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph108 '("      "
"      "
"      "
"      "
"      "
"      " 
"      "
"      "
" $$$$$"
" $$$$$"
" $$$$$"
" $$$$$"
" $$$$$" 
" $$$$$"
" $$$$$"
"      "
"      "
"      "
"      "
"      " 
"      "
"      "
"      "
"      "))

(set 'glyph109 '("                  "
"                  "
"                  " 
"                  "
"                  "
"                  " 
"                  "
"                  "
"                  " 
" $$$$$$$$$$$$$$$$$"
" $$$$$ #$$$$ s$$$$"
" $$$$$ #$$$$ o$$$$" 
" $$$$$ #$$$$ o$$$$"
" $$$$$ #$$$$ o$$$$"
" $$$$$ #$$$$ o$$$$" 
"                  "
"                  "
"                  " 
"                  "
"                  "
"                  " 
"                  "
"                  "
"                  "))

(set 'glyph110 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            " 
" $$$$$$$$$$$"
" $$$$$ #$$$$"
" $$$$$ s$$$$"
" $$$$$ s$$$$"
" $$$$$ s$$$$" 
" $$$$$ s$$$$"
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph111 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            " 
"  $$$$$$$$@ "
" $$$$$ $$$$$"
" $$$$$ $$$$$"
" $$$$$ $$$$$"
" $$$$$ $$$$$" 
"   0$$$$$s  "
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph112 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            " 
" $$$$$$$$$$$"
" $$$$$ #$$$$"
" $$$$$ #$$$$"
" $$$$$ #$$$$"
" $$$$$ @$$$$" 
" $$$$$ @$$$ "
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph113 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            " 
" 7$$$$$$$$$$"
" $$$$$ $$$$$"
" $$$$$ $$$$$"
" $$$$$ $$$$$"
" $$$$$ $$$$$" 
"  s$$$=$$$$$"
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph114 '("         "
"         "
"         "
"         " 
"         "
"         "
"         "
"         "
"         "
" $$$$$$$$" 
" $$$$$$$$"
" $$$$$   "
" $$$$$   "
" $$$$$   "
" $$$$$   "
"         " 
"         "
"         "
"         "
"         "
"         "
"         " 
"         "
"         "))

(set 'glyph115 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            " 
" !$$$$$$$$  "
"!$$$$6s$$$$ "
" @$$$$$$&   "
" ;;;;;$$$$$6"
" $$$$@x$$$$t" 
"   0$$$$$o  "
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph116 '("        "
"        "
"        "
"        "
"        " 
"        "
"        "
"        "
" &$$$$  "
"$$$$$$$$"
" s$$$$  " 
" s$$$$  "
" s$$$$  "
" 0$$$$t "
"   8$$$$"
"        "
"        " 
"        "
"        "
"        "
"        "
"        "
"        " 
"        "))

(set 'glyph117 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            " 
" $$$$$ #$$$$"
" $$$$$ #$$$$"
" $$$$$ #$$$$"
" $$$$$ #$$$$"
" $$$$$ $$$$$" 
"  #$$$;$$$$$"
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph118 '("           "
"           "
"           "
"           " 
"           "
"           "
"           "
"           "
"           " 
"$$$$@ &$$$$"
"-$$$$ $$$$8"
" $$$$s$$$$ "
"  $$$$$$$$ "
"  $$$$$$$6 " 
"  %$$$$$$  "
"           "
"           "
"           "
"           " 
"           "
"           "
"           "
"           "
"           "))

(set 'glyph119 '("                 "
"                 "
"                 " 
"                 "
"                 "
"                 "
"                 " 
"                 "
"                 "
"$$$$8 $$$$8 $$$$6"
"i$$$$ $$$$$ $$$$ " 
" $$$$x$$$$$x$$$$ "
" o$$$$$$0$$$$$$8 "
"  $$$$$$ $$$$$$  "
"  $$$$$$ s$$$$$  " 
"                 "
"                 "
"                 "
"                 " 
"                 "
"                 "
"                 "
"                 " 
"                 "))

(set 'glyph120 '("           "
"           "
"           "
"           " 
"           "
"           "
"           "
"           "
"           " 
"&$$$@ $$$$o"
" 8$$$7$$$$ "
"  $$$$$$$  "
"  $$$$$$$$ "
" $$$$ $$$$ " 
"$$$$7 $$$$$"
"           "
"           "
"           "
"           " 
"           "
"           "
"           "
"           "
"           "))

(set 'glyph121 '("           "
"           "
"           "
"           " 
"           "
"           "
"           "
"           "
"           " 
"$$$$$ o$$$$"
" $$$$=#$$$$"
" t$$$$$$$$;"
"  $$$$$$$$ "
"  t$$$$$$$ " 
" @$$$$$$$= "
"           "
"           "
"           "
"           " 
"           "
"           "
"           "
"           "
"           "))

(set 'glyph122 '("         "
"         "
"         "
"         " 
"         "
"         "
"         "
"         "
"         "
":$$$$$$$@" 
"    $$$$&"
"  0$$$$@ "
" 8$$$$   "
"#$$$$$$$$"
"#$$$$$$$@"
"         " 
"         "
"         "
"         "
"         "
"         "
"         " 
"         "
"         "))

(set 'glyph123 '("         "
"         "
"         "
"         " 
"         "
"         "
"         "
"         "
"    $$$$$"
"   #$$6  " 
"   $$$+  "
"!$$$$$   "
"  $$$$   "
"   #$$+  "
"   s$$@  "
"    $$$$$" 
"         "
"         "
"         "
"         "
"         "
"         " 
"         "
"         "))

(set 'glyph124 '("     "
"     "
"     "
"     "
"     "
"     " 
"     "
"     "
"  $$$"
"  $$$"
"  $$$"
"  $$$"
"  $$$"
"  $$$" 
"  $$$"
"  $$$"
"     "
"     "
"     "
"     "
"     "
"     " 
"     "
"     "))

(set 'glyph125 '("         "
"         "
"         "
"         " 
"         "
"         "
"         "
"         "
":$$$$$   "
"   $$$   " 
"   @$$+  "
"    $$$$$"
"   -$$$x "
"   $$$=  "
"   $$$   "
":$$$$i   " 
"         "
"         "
"         "
"         "
"         "
"         " 
"         "
"         "))

(set 'glyph126 '("             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"  %$$$x    @+" 
" $$#-#$$$$$$ "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"             "))

(set 'glyph32 '(""
""
""
""
""
""
""
""
""
""
""
""
""
""
""
""
"" 
""
""
""
""
""
""
""))

(set 'glyph33 '("       "
"       "
"       "
"       "
"       " 
"       "
"       "
"       "
" #$$$$+"
" s$$$$ "
" :$$$$ "
"  $$$$ " 
"  $$$$ "
" :$$$$ "
" :$$$$ "
"       "
"       "
"       "
"       " 
"       "
"       "
"       "
"       "
"       "))

(set 'glyph34 '("         "
"         "
"         "
"         "
"         " 
"         "
"         "
"         "
":$$$6$$$$"
" $$$ 7$$@"
"         " 
"         "
"         "
"         "
"         "
"         "
"         " 
"         "
"         "
"         "
"         "
"         "
"         " 
"         "))

(set 'glyph35 '("               "
"               "
"               " 
"               "
"               "
"               "
"               " 
"               "
"               "
"    !$$+   $$$ "
":$$$$$$$$$$$$$$" 
"   ,$$    $$;  "
":$$$$$$$$$$$$$$"
"  $$$   !$$+   "
"  $$    $$8    " 
"               "
"               "
"               "
"               " 
"               "
"               "
"               "
"               " 
"               "))

(set 'glyph36 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"      $$     " 
"  $$$$$$$$$$ "
" $$$$$ o$$$$6"
" 6$$$$$$$:   "
"    $$$$$$$$ " 
" $$$$$ t$$$$$"
" 6$$$$&$$$$$6"
"    s$$$$s   "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph37 '("                 "
"                 "
"                 " 
"                 "
"                 "
"                 "
"                 " 
"                 "
" $$$t$$$  6$#    "
":$$$o$$$ !$$     "
":$$$o$$$%$s      " 
"   xsx 7$@$$$$$$ "
"      $$ :$$@o$$@"
"     $$o :$$@o$$@"
"    $$    .@$$$6 " 
"                 "
"                 "
"                 "
"                 " 
"                 "
"                 "
"                 "
"                 " 
"                 "))

(set 'glyph38 '("              "
"              "
"              " 
"              "
"              "
"              "
"              " 
"              "
"              "
"  $$$$$$$$6   "
" i$$$$ $$$$=  " 
"  @$$$$$$$    "
" $$$$$$$$$$$$$"
" $$$$$x$$$$$$ "
"  t$$$$$  $$$$" 
"              "
"              "
"              "
"              " 
"              "
"              "
"              "
"              " 
"              "))

(set 'glyph39 '("     "
"     "
"     "
"     "
"     "
"     "
"     " 
"     "
":$$$6"
" $$$ "
"     "
"     "
"     "
"     "
"     " 
"     "
"     "
"     "
"     "
"     "
"     "
"     "
"     " 
"     "))

(set 'glyph40 '("        "
"        "
"        "
"        "
"        " 
"        "
"        "
"        "
" i$$$$$$"
" 8$$$$  "
" #$$$$  " 
" #$$$$  "
" #$$$$  "
" &$$$$  "
"   6$$$$"
"        "
"        " 
"        "
"        "
"        "
"        "
"        "
"        " 
"        "))

(set 'glyph41 '("       "
"       "
"       "
"       "
"       " 
"       "
"       "
"       "
":$$$$$$"
"  s$$$$"
"  s$$$$"
"  s$$$$" 
"  s$$$$"
"  $$$$$"
":$$$&! "
"       "
"       "
"       "
"       " 
"       "
"       "
"       "
"       "
"       "))

(set 'glyph42 '("       "
"       "
"       "
"       "
"       " 
"       "
"       "
"       "
" $#$$$0"
" =$$$$ "
"       "
"       " 
"       "
"       "
"       "
"       "
"       "
"       "
"       " 
"       "
"       "
"       "
"       "
"       "))

(set 'glyph43 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"             "
"     #$$     "
"     #$$     "
" $$$$$$$$$$$6" 
"     #$$     "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph44 '("    "
"    "
"    "
"    "
"    "
"    "
"    " 
"    "
"    "
"    "
"    "
"    "
"    "
":$$$"
":$$$"
"    " 
"    "
"    "
"    "
"    "
"    "
"    "
"    "
"    "))

(set 'glyph45 '("       "
"       "
"       "
"       "
"       " 
"       "
"       "
"       "
"       "
"       "
"       "
":$$$$$$" 
"       "
"       "
"       "
"       "
"       "
"       "
"       " 
"       "
"       "
"       "
"       "
"       "))

(set 'glyph46 '("     "
"     "
"     "
"     "
"     "
"     "
"     " 
"     "
"     "
"     "
"     "
"     "
"     "
":$$$6"
":$$$7" 
"     "
"     "
"     "
"     "
"     "
"     "
"     "
"     " 
"     "))

(set 'glyph47 '("          "
"          "
"          "
"          " 
"          "
"          "
"          "
"          "
"     o$$$t" 
"    o$$$t "
"    $$$$  "
"   $$$$   "
"  $$$$    "
" 8$$$!    " 
"8$$$!     "
"          "
"          "
"          "
"          " 
"          "
"          "
"          "
"          "
"          "))

(set 'glyph48 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"  $$$$$$$$$$ "
" $$$$$ :$$$$="
" $$$$$ :$$$$6"
" $$$$$ :$$$$6" 
" $$$$$ :$$$$6"
" 6$$$$-#$$$$ "
"   ,$$$$$$   "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph49 '("         "
"         "
"         "
"         "
"         " 
"         "
"         "
"         "
"   +$$$$8"
"#$$$$$$$8"
"    $$$$8" 
"    $$$$8"
"    $$$$8"
"    $$$$8"
"    $$$$8"
"         "
"         " 
"         "
"         "
"         "
"         "
"         "
"         " 
"         "))

(set 'glyph50 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"  $$$$$$$$$." 
" $$$$8 #$$$$"
"      $$$$$@"
"    s$$$$$  "
"  i$$$$$    "
" $$$$$$$$$$@" 
" $$$$$$$$$$@"
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph51 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
" s$$$$$$$$$$" 
" $$$$$ o$$$$"
"    6#$$$$$$"
"    6#$$$$$$"
" $$$$$ o$$$$"
" $$$$$ $$$$$" 
"   6$$$$$$  "
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph52 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"    $$$$$$$ " 
"   $$$$$$$$ "
"  $$$@$$$$$ "
" $$$$ $$$$$ "
"#$$$$$$$$$$$"
"      $$$$$ " 
"      $$$$$ "
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph53 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
" #$$$$$$$$$$ "
" #$$$$       "
" $$$$$$$$$$$ "
"        $$$$8" 
" $$$$$  $$$$8"
" s$$$$is$$$$!"
"   .$$$$$$   "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph54 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"  $$$$$$$$$$ "
" $$$$$  $$$$@"
" $$$$$$$$$$$ "
" $$$$$  $$$$#" 
" $$$$$  $$$$@"
" 0$$$$t&$$$$6"
"   .$$$$$$:  "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph55 '("          "
"          "
"          "
"          " 
"          "
"          "
"          "
"          "
"#$$$$$$$$$" 
"     $$$$$"
"    $$$$$ "
"    $$$$7 "
"   $$$$$  "
"  $$$$$o  " 
"  $$$$@   "
"          "
"          "
"          "
"          " 
"          "
"          "
"          "
"          "
"          "))

(set 'glyph56 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"  $$$$$$$$$$ "
" 8$$$$ o$$$$-"
"  $$$$$$$$$$ "
" &$$$$$$$$$$ " 
" $$$$$ :$$$$6"
" %$$$$=%$$$$ "
"   i$$$$$$   "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph57 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"  $$$$$$$$$$ "
" $$$$$  $$$$8"
" $$$$$  $$$$@"
" 8$$$$$$$$$$@" 
"        $$$$@"
" s$$$$o6$$$$o"
"   =$$$$$$   "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph58 '("     "
"     "
"     "
"     "
"     "
"     "
"     " 
"     "
"     "
"     "
" $$$$"
" $$$$"
"     "
" $$$$"
" $$$$" 
"     "
"     "
"     "
"     "
"     "
"     "
"     "
"     " 
"     "))

(set 'glyph59 '("     "
"     "
"     "
"     "
"     "
"     "
"     " 
"     "
"     "
"     "
" $$$$"
" $$$$"
"     "
" s$$@"
" s$$6" 
"     "
"     "
"     "
"     "
"     "
"     "
"     "
"     " 
"     "))

(set 'glyph60 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"             "
"         0$$6"
"  7$$$$$$$#  "
" $$$$$$$     " 
"       7$$$$6"
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph61 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
" $$$$$$$$$$$6"
" iiiiiiiiiii," 
" 00000000000+"
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph62 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"             "
" $$$!        "
"  t$$$$$$$@, "
"     =$$$$$$6" 
" $$$$$       "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph63 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"  $$$$$$$$$$ "
" s$$$$ !$$$$8"
"       :$$$$8"
" :$$$$$$$$$$&" 
" :$$$$ @$$t  "
" :$$$$       "
" :$$$$       "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph64 '("                   "
"                   "
"                   " 
"                   "
"                   "
"                   " 
"                   "
"                   "
"    $$$$x! -@$$$   " 
"  $$  $$$$$$$$. $$ "
" $$ 0$$&   $$$  -$#"
":$8 $$@   :$$%  #$6" 
" $$=$$$- !$$$ $$$. "
"  @$$.         :$$&"
"     o$$$$$$$$$=   " 
"                   "
"                   "
"                   " 
"                   "
"                   "
"                   " 
"                   "
"                   "
"                   "))

(set 'glyph65 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"  @$$$$$$$   "
"  $$$$$$$$#  "
"  $$$$i$$$$  "
" 8$$$$ $$$$@ " 
" $$$$$$$$$$$ "
"8$$$$$ s$$$$+"
"$$$$$# :$$$$$"
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph66 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
" #$$$$$$$$$$ "
" #$$$$+ $$$$s"
" #$$$$0#$$$$."
" #$$$$$$$$$$o" 
" #$$$$+ $$$$$"
" #$$$$$$$$$$$"
" %$$$$$$$@x  "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph67 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"  $$$$$$$$$$ "
" $$$$$  $$$$$"
" $$$$$  $$$$$"
" $$$$$       " 
" $$$$$  $$$$$"
" o$$$$$@$$$$#"
"    $$$$$$   "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph68 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
" #$$$$$$$$$$ "
" #$$$$+ $$$$$"
" #$$$$+ $$$$$"
" #$$$$+ $$$$$" 
" #$$$$+ $$$$$"
" #$$$$$$$$$$$"
" %$$$$$$$@6  "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph69 '("          "
"          "
"          "
"          " 
"          "
"          "
"          "
"          "
" #$$$$$$$$" 
" #$$$$+   "
" #$$$$8ssx"
" #$$$$$$$@"
" #$$$$+   "
" #$$$$$$$$" 
" %$$$$$$$$"
"          "
"          "
"          "
"          " 
"          "
"          "
"          "
"          "
"          "))

(set 'glyph70 '("          "
"          "
"          "
"          " 
"          "
"          "
"          "
"          "
" #$$$$$$$$" 
" #$$$$+   "
" #$$$$8ss7"
" #$$$$$$$8"
" #$$$$+   "
" #$$$$+   " 
" %$$$$-   "
"          "
"          "
"          "
"          " 
"          "
"          "
"          "
"          "
"          "))

(set 'glyph71 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"  $$$$$$$$$$ "
" $$$$$  $$$$@"
" $$$$$  ,,,, "
" $$$$$ $$$$$$" 
" $$$$$  $$$$$"
" 6$$$$$$$$$$$"
"   +$$$$ 7$$$"
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph72 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
" #$$$$+ $$$$$"
" #$$$$+ $$$$$"
" #$$$$$$$$$$$"
" #$$$$$$$$$$$" 
" #$$$$+ $$$$$"
" #$$$$+ $$$$$"
" %$$$$- $$$$$"
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph73 '("       "
"       "
"       "
"       "
"       " 
"       "
"       "
"       "
" #$$$$+"
" #$$$$+"
" #$$$$+"
" #$$$$+" 
" #$$$$+"
" #$$$$+"
" %$$$$-"
"       "
"       "
"       "
"       " 
"       "
"       "
"       "
"       "
"       "))

(set 'glyph74 '("        "
"        "
"        "
"        "
"        " 
"        "
"        "
"        "
"  $$$$$@"
"  $$$$$@"
"  $$$$$@" 
"  $$$$$@"
"  $$$$$@"
"#$$$$$$@"
"%$$$@s  "
"        "
"        " 
"        "
"        "
"        "
"        "
"        "
"        " 
"        "))

(set 'glyph75 '("              "
"              "
"              " 
"              "
"              "
"              "
"              " 
"              "
" #$$$$+ $$$$@ "
" #$$$$-$$$$$  "
" #$$$$$$$$$   " 
" #$$$$$$$$$   "
" #$$$$i$$$$$  "
" #$$$$+o$$$$# "
" %$$$$- $$$$$#" 
"              "
"              "
"              "
"              " 
"              "
"              "
"              "
"              " 
"              "))

(set 'glyph76 '("          "
"          "
"          "
"          " 
"          "
"          "
"          "
"          "
" #$$$$+   " 
" #$$$$+   "
" #$$$$+   "
" #$$$$+   "
" #$$$$+   "
" #$$$$$$$8" 
" %$$$$$$$8"
"          "
"          "
"          "
"          " 
"          "
"          "
"          "
"          "
"          "))

(set 'glyph77 '("                 "
"                 "
"                 " 
"                 "
"                 "
"                 "
"                 " 
"                 "
" #$$$$$$  $$$$$$@"
" #$$$$$$6o$$$$$$@"
" #$$$$$$$$$$$$$$@" 
" #$$$$$$$$$$$$$$@"
" #$$$$s$$$$8$$$$@"
" #$$$$ $$$$ $$$$@"
" %$$$$ s$$@ $$$$@" 
"                 "
"                 "
"                 "
"                 " 
"                 "
"                 "
"                 "
"                 " 
"                 "))

(set 'glyph78 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
" #$$$$  $$$$6"
" #$$$$$ $$$$6"
" #$$$$$$$$$$6"
" #$$$$$$$$$$6" 
" #$$$$$$$$$$6"
" #$$$$ $$$$$6"
" %$$$$  $$$$7"
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph79 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"  $$$$$$$$$$ "
" $$$$$ !$$$$@"
" $$$$$  $$$$@"
" $$$$$  $$$$@" 
" $$$$$  $$$$@"
" 7$$$$$$$$$$o"
"    $$$$$$   "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph80 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
" #$$$$$$$$$$" 
" #$$$$+ $$$$"
" #$$$$= $$$$"
" #$$$$$$$$$#"
" #$$$$+     "
" #$$$$+     " 
" %$$$$-     "
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph81 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"  $$$$$$$$$$ "
" $$$$$ !$$$$@"
" $$$$$  $$$$@"
" $$$$$  $$$$@" 
" $$$$$  $$$$@"
" -$$$$$$$$$$="
"    0$$$$$8&0"
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph82 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
" #$$$$$$$$$$ "
" #$$$$+ $$$$;"
" #$$$$0$$$$$."
" #$$$$$$$$$$ " 
" #$$$$+ $$$$6"
" #$$$$+ $$$$6"
" %$$$$- $$$$7"
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph83 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
" 0$$$$$$$$$@" 
" $$$$$ $$$$$"
" $$$$$$$    "
"   !$$$$$$$$"
" $$$$$ 8$$$$"
" @$$$$8$$$$$" 
"   ;$$$$$$  "
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph84 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"#$$$$$$$$$$8" 
"   s$$$$6   "
"   s$$$$6   "
"   s$$$$6   "
"   s$$$$6   "
"   s$$$$6   " 
"   0$$$$7   "
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph85 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
" $$$$$ :$$$$@"
" $$$$$ :$$$$@"
" $$$$$ :$$$$@"
" $$$$$ :$$$$@" 
" #$$$$ :$$$$@"
" 7$$$$$$$$$$t"
"    $$$$$$   "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph86 '("             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             " 
"$$$$$$  $$$$$"
",$$$$$ s$$$$8"
" @$$$$ $$$$$ "
"  $$$$8$$$$$ " 
"  $$$$$$$$$% "
"  s$$$$$$$$  "
"   $$$$$$$@  "
"             " 
"             "
"             "
"             "
"             " 
"             "
"             "
"             "
"             "))

(set 'glyph87 '("                    "
"                    "
"                    " 
"                    "
"                    "
"                    " 
"                    "
"                    "
"#$$$$8 $$$$$$ :$$$$$" 
":$$$$$ $$$$$$=#$$$$@"
" $$$$$&$$$$$$8$$$$$="
" o$$$$$$$$$$$$$$$$$ " 
"  $$$$$$$$&$$$$$$$6 "
"  $$$$$$$; $$$$$$$  "
"  #$$$$$$  t$$$$$$  " 
"                    "
"                    "
"                    " 
"                    "
"                    "
"                    " 
"                    "
"                    "
"                    "))

(set 'glyph88 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"6$$$$$:$$$$." 
" @$$$$$$$$s "
"  $$$$$$$$  "
"  $$$$$$$$  "
" @$$$$$$$$$ "
":$$$$$ $$$$$" 
"$$$$$6 -$$$$"
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph89 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"x$$$$; $$$$@" 
" x$$$$$$$$# "
"  $$$$$$$$  "
"   $$$$$$   "
"    $$$$+   "
"    $$$$+   " 
"    $$$$-   "
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph90 '("          "
"          "
"          "
"          " 
"          "
"          "
"          "
"          "
" $$$$$$$$$" 
"    $$$$$$"
"   $$$$$% "
"  $$$$$$  "
" %$$$$@   "
"#$$$$$$$$$" 
"#$$$$$$$$$"
"          "
"          "
"          "
"          " 
"          "
"          "
"          "
"          "
"          "))

(set 'glyph91 '("       "
"       "
"       "
"       "
"       " 
"       "
"       "
"       "
" #$$$$$"
" #$$$$ "
" #$$$$ "
" #$$$$ " 
" #$$$$ "
" #$$$$@"
" %$$$$$"
"       "
"       "
"       "
"       " 
"       "
"       "
"       "
"       "
"       "))

(set 'glyph92 '("          "
"          "
"          "
"          " 
"          "
"          "
"          "
"          "
" $$$$     " 
"  $$$$    "
"  0$$$+   "
"   0$$$+  "
"    $$$$  "
"     $$$$ " 
"      $$$$"
"          "
"          "
"          "
"          " 
"          "
"          "
"          "
"          "
"          "))

(set 'glyph93 '("      "
"      "
"      "
"      "
"      "
"      " 
"      "
"      "
":$$$$$"
"  $$$$"
"  $$$$"
"  $$$$"
"  $$$$" 
":@$$$$"
":$$$$$"
"      "
"      "
"      "
"      "
"      " 
"      "
"      "
"      "
"      "))

(set 'glyph94 '("           "
"           "
"           "
"           " 
"           "
"           "
"           "
"           "
"    $$$$o  " 
"  o$$$@$$$ "
" &$$$  -$$$"
"           "
"           "
"           " 
"           "
"           "
"           "
"           "
"           " 
"           "
"           "
"           "
"           "
"           "))

(set 'glyph95 '("              "
"              "
"              " 
"              "
"              "
"              "
"              " 
"              "
"              "
"              "
"              " 
"              "
"              "
"              "
"              " 
"$$$$$$$$$$$$$$"
"              "
"              "
"              " 
"              "
"              "
"              "
"              " 
"              "))

(set 'glyph96 '("      "
"      "
"      "
"      "
"      "
"      " 
"      "
" $$$$!"
"      "
"      "
"      "
"      "
"      " 
"      "
"      "
"      "
"      "
"      "
"      "
"      " 
"      "
"      "
"      "
"      "))

(set 'glyph97 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            " 
"  $$$$$$$$$ "
" $$$$$ $$$$$"
"    x$$$$$$$"
" $$$$$ $$$$$"
" $$$$$+$$$$$" 
"  @$$$ $$$$$"
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph98 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
" $$$$$      " 
" $$$$$$$$$$$"
" $$$$$ #$$$$"
" $$$$$ #$$$$"
" $$$$$ #$$$$"
" $$$$$ $$$$$" 
" $$$$$ $$$# "
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'glyph99 '("            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            " 
"  $$$$$$$$6 "
" $$$$$ $$$$$"
" $$$$$      "
" $$$$$ s$$$$"
" #$$$$ $$$$@" 
"   o$$$$$;  "
"            "
"            "
"            "
"            " 
"            "
"            "
"            "
"            "
"            "))

(set 'height 24)

(context 'MAIN)

(set 'font {Impact} 'font-size 60)
(set 'ctxt (context MAIN (string font font-size)))

(define (ctxt:get-glyph n) ; n is ascii code tween 32 and 126
  (if (= n 32)
    (dup (dup { } 12) ctxt:height true)
    (eval (sym (string {glyph} n) ctxt))))

(define (message s)
  (let (big-buffer '())
  (dostring (i s)
    (set 'g (ctxt:get-glyph i))    
    (push g big-buffer -1))
  (dotimes (r (length (first big-buffer)))
    (dolist (i big-buffer)
      (print (i r)))
    (println))))

(message "Lambda")

(exit)