(mut i 0)
(while (< i 16) {
  (mut j (+ 32 i))
  (while (< j 128) {
    (let k
      (if (= 32 j)
        "Spc"
        (if (= 127 j)
          "Del"
          (string:chr j))))
    (puts (string:format "{:3} : {:<3}" j k))
    (set j (+ 16 j) )})
  (print "")

  (set i (+ 1 i)) })