11 lines
191 B
Text
11 lines
191 B
Text
import system.IO
|
|
|
|
check 'a'
|
|
|
|
vm_eval 'a'
|
|
vm_eval '\n'
|
|
vm_eval '\\'
|
|
vm_eval put_str (list.cons '\\' "aaa")
|
|
vm_eval put_str ['\n']
|
|
vm_eval put_str ['\n']
|
|
vm_eval put_str (list.cons '\'' "aaa")
|