[]-S:- \+writeln(S).
[X|Y]-S:-member(A,X),atom_concat(S,A,T),Y-T.
91+[['A','B','C'],['ABC','DEF']].
65+[['A'],['','B'],['','ABC','DEF'],['FF'],['','X','Y','Z']].
40+[['','Objective-','Aspect','Concept'],['C','D'],['',++,--,#,omega]].
m:-prompt1(''),get(C),C+L,L-''.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).