Problem Statement

Given a character value in your language, print its code   (could be ASCII code, Unicode code, or whatever your language uses).

The character   'a'   (lowercase letter A)   has a code of 97 in ASCII   (as well as Unicode, as ASCII forms the beginning of Unicode). Conversely, given a code, print out the corresponding character.

Let's start with the solution:

( put
$ ( str
  $ ( "\nLatin a
        ISO-9959-1: "
      asc$a
      " = "
      chr$97
      "
             UTF-8: "
      utf$a
      " = "
      chu$97
      \n
      "Cyrillic а (UTF-8): "
      utf$а
      " = "
      chu$1072
      \n
    )
  )
)