image(2) ----> "2"
image('cab') ----> "'abc'"
image(&lcase) ----> "&lcase"
image('abcdefghijklmnopqrstuvwxyz') ----> "&lcase"
image(&input) ----> "&input"
image() ----> "&null"
image(&null) ----> "&null"
image([1,2,3]) ----> "list_1(3)"
image([]) ----> "list_2(0)"
image([,]) ----> "list_3(2)"
image(table()) ----> "table_1(0)"
image(table(3)) ----> "table_2(0)"
image(list(0)) ----> "list_4(0)"
image(repl) ----> "function repl"
image(main) ----> "procedure main"
image(repl(&lcase,10)) ----> "\"abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz\""
image(array) ----> "record constructor array"
image(a) ----> "&null"
image(array) ----> "record constructor array"
image(image) ----> "function image"
integer(2) ----> 2
integer("2") ----> 2
integer(" 2") ----> 2
integer("2 ") ----> 2
integer("+2") ----> 2
integer("-2") ----> -2
integer("- 2") ----> none
integer(" -    2 ") ----> none
integer("") ----> none
integer("--2") ----> none
integer(" ") ----> none
integer("-") ----> none
integer("+") ----> none
integer("7r4") ----> 4
integer("4r7") ----> none
integer("4r 7") ----> none
integer("7r 4") ----> none
integer("16rff") ----> 255
integer("36rcat") ----> 15941
integer("36Rcat") ----> 15941
integer("36rCAT") ----> 15941
integer("1r1") ----> none
integer("2r0") ----> 0
integer(integer) ----> none
integer := abs ----> function abs
numeric(2) ----> 2
numeric("2") ----> 2
numeric(" 2") ----> 2
numeric("2 ") ----> 2
numeric("+2") ----> 2
numeric("-2") ----> -2
numeric("- 2") ----> none
numeric(" -    2 ") ----> none
numeric("") ----> none
numeric("--2") ----> none
numeric(" ") ----> none
numeric("-") ----> none
numeric("+") ----> none
numeric("7r4") ----> 4
numeric("4r7") ----> none
numeric("4r 7") ----> none
numeric("7r 4") ----> none
numeric("16rff") ----> 255
numeric("36rcat") ----> 15941
numeric("36Rcat") ----> 15941
numeric("36rCAT") ----> 15941
numeric("1r1") ----> none
numeric("2r0") ----> 0
numeric(2) ----> 2
numeric(2) ----> 2
numeric(+2) ----> 2
numeric(-2) ----> -2
numeric() ----> none
numeric(7r4) ----> 4
numeric(16rff) ----> 255
numeric(36rcat) ----> 15941
numeric(36Rcat) ----> 15941
numeric(36rCAT) ----> 15941
numeric(2r0) ----> 0
numeric(+-2) ----> -2
numeric(++2) ----> 2
numeric(--2) ----> 2
36 ^ -9 ----> 0
-36 ^ -9 ----> 0
f := open("foo.baz","w") ----> file(foo.baz)
write(f,"hello world") ----> "hello world"
close(f) ----> file(foo.baz)

cset sizes and images:
  0 ''
  4 '()<>'
  8 '\b\t\n\v\f\r\e\d'
 10 &digits
 10 &digits
 10 &digits
 10 '!#$%&()*@^'
 15 ' aceghilmnoprtu'
 26 &lcase
 26 &lcase
 26 &lcase
 26 'BDFHJLNPRTVXZacegikmoqsuwy'
 26 &ucase
 26 &ucase
 26 &ucase
 26 'AEIOUbcdfghjklmnpqrstvwxyz'
 31 ' \'BDFGJLOQTacdeghikmnoprsuvwxyz'
 52 &letters
 52 &letters
 52 &letters
 52 '.0125ABCDEFGHJKLMNPQRTUVWXYabcdefghijkmnpqrstuvwxyz|'
128 &ascii
128 &ascii
256 &cset
256 &cset

&ascii
&cset
2.718281828
failed
&input
&lcase
&null
&output
1.618033989
3.141592654
1
0
""
&ucase
