open List;;iter print_endline(fold_left(fun m p->concat(map(fun x->map((^)x)p)m))[""][|[["";"Objective-";"Aspect";"Concept"];["C";"D"];["";"++";"--";"#";"omega"]];[["A";"AB"];["FF";"ABCFF";"DEFFF"];["";"X";"Y";"Z"]];[["A";"B";"C"];["ABC";"DEF"]]|].(input_byte stdin/41))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).