#9 Too long line generate a compiler limit exceed error

[Lionel LASKE]

Too long line generate a compiler limit exceed error
(generated line > 2046 characters)

to tree :datum :children
output fput :datum :children
end

to worldtree
make "world ~ ; Don't work
tree "world ~
(list (tree "France leaves [Paris Dijon Avignon])
(tree "China leaves [Beijing Shanghai
Guangzhou Suzhou])
(tree [United States]
(list (tree [New York]
leaves [[New York] Albany
Rochester
Armonk] )
(tree "Massachusetts
leaves [Boston Cambridge Sudbury
Maynard] )
(tree "California
leaves [[San Francisco] Berkeley
[Palo Alto] Pasadena] )
(tree "Washington
leaves [Seattle Olympia] ) ) )
(tree "Canada
(list (tree "Ontario
leaves [Toronto Ottawa Windsor] )
(tree "Quebec
leaves [Montreal Quebec Lachine] )
(tree "Manitoba leaves [Winnipeg]) ) ) )
end