#!/usr/bin/newlisp

(define np2utf8:np2utf8)
(np2utf8 "A" (char 0x5D0))
(np2utf8 "B" (char 0x5D1))
(np2utf8 "G" (char 0x5D2))
(np2utf8 "D" (char 0x5D3))
(np2utf8 "E" (char 0x5D4))
(np2utf8 "V" (char 0x5D5))
(np2utf8 "J" (char 0x5D6))
(np2utf8 "H" (char 0x5D7))
(np2utf8 "T" (char 0x5D8))
(np2utf8 "I" (char 0x5D9))
(np2utf8 "c" (char 0x5DA))
(np2utf8 "C" (char 0x5DB))
(np2utf8 "L" (char 0x5DC))
(np2utf8 "m" (char 0x5DD))
(np2utf8 "M" (char 0x5DE))
(np2utf8 "n" (char 0x5DF))
(np2utf8 "N" (char 0x5E0))
(np2utf8 "S" (char 0x5E1))
(np2utf8 "O" (char 0x5E2))
(np2utf8 "p" (char 0x5E3))
(np2utf8 "P" (char 0x5E4))
(np2utf8 "z" (char 0x5E5))
(np2utf8 "Z" (char 0x5E6))
(np2utf8 "Q" (char 0x5E7))
(np2utf8 "R" (char 0x5E8))
(np2utf8 "w" (char 0x5E9))
(np2utf8 "W" (char 0x5E9))
(np2utf8 "X" (char 0x5EA))

(setq  input-file (or (env "OPEN")   "/dev/stdin"))

(dolist (c (explode (read-file input-file)))
  (if (np2utf8 c)
    (print (np2utf8 c))
    (print c)))

(exit 0)