5 lines
160 B
Text
5 lines
160 B
Text
|
fun show (l) =
|
||
|
|
match (l) { N -> nothing | C (x, xs) -> print_string (x); show (xs) }
|
||
|
|
|
||
|
|
let test =
|
||
|
|
show (C ("This", C (" test is ", C ("OK", C (".\n.", N)))))
|