#SRC: JCON procedure main() local s every write("a. ") every write("b. ", -3) every write("c. ", 1 to 10) every write("d. ", 1 to 10 by 3) every write("e. ", 1 to 11 by 3) every write("f. ", 1 to 12 by 3) every write("g. ", 1 to 10 by -3) every write("h. ", 10 to 1 by -3) every write("i. ", 11 to 1 by -3) every write("j. ", 12 to 1 by -3) every write("k. ", (7 | 6.5) + (2 | 2.1)) every write("l. ", , "hello" | "goodbye", " ", "world" | "mom") every write("m. ", !"") every write("n. ", !"a") every write("o. ", !"abcde") every write("p. ", !-514) every write("q. ", !12.5) s := "abcde" every !s := "." do write("r. ", s) every write("s. ", (-3|-2|-1|0|1|2|3)(101,102)) every write("t. ", (-3|-2|-1|0|1|2|3) ! [201,202]) every write("u. ", f ! [5]) end procedure f(n) suspend n | -n end