procedure main(arglist)
if *arglist > 0 then L := arglist else L := [97, "a"]

every x := !L do
   write(x, " ==> ", char(integer(x)) | ord(x) )  # char produces a character, ord produces a number
end