code$ swipl -s code_English.prolog
% Janus 1.5.2 embeds Python 3.13.13 (main, Apr 8 2026, 18:23:14) [Clang 21.0.0 (clang-2100.0.123.102)]
Manual & tutorial: https://sandiway.arizona.edu Sandiway Fong (2024-2026)
Run: ?- parse(List,SO,L). (; for more answers)
List = [..words] (input), SO,L = syntactic object, [..] spellout (output)
See derivation: ?- report. ?- graph. (<- after parse/3) ?- summary. (short)
for a long report ?- retract(no_fill).
LEX expansion: ⒜ WordNet: ?- useMorphy. (noMorphy)
assert/retract/?- : use_morphy(C), for C={v,n,a,r}. ⒝ edit lex.prolog
⒞ ?- addNoun(Word) (addTr/addUrg/addUnacc/addAdj/addPrep).
Welcome to SWI-Prolog (threaded, 64 bits, version 10.0.2)
SWI-Prolog comes with ABSOLUTELY NO WARRANTY. This is free software.
Please run ?- license. for legal details.
For online help and background, visit https://www.swi-prolog.org
For built-in help, use ?- help(Topic). or ?- apropos(Word).
% Interactive session; added `.` to Python `sys.path`
101 ?- parse([did,'John',meet,'Bill'],S,L).
Words: did John meet Bill
Initial WS: Bill meet_θ v_meet:θ:pst:ext(do) John INFL_v
INT/EXT: {C, {INFL_v, {John, {v_meet:θ:pst:ext(do), {meet_θ, Bill}}}}}
EXT: John 3sg pst meet Bill
Spellout: John meeted Bill
Blocked: inconsistent with input!
INT/EXT: {C_Q_aux(null,pst,meet), {INFL_v, {John, {v_meet:θ:pst:ext(do), {meet_θ, Bill}}}}}
EXT: null pst meet →→ John 3sg pst meet Bill
Spellout: 3sg pst do John meet Bill
Spellout: did John meet Bill
Parse found!
S = {C_Q_aux(null,pst,meet), {INFL_v, {John, {v_meet:θ:pst:ext(do), {meet_θ, Bill}}}}},
L = [did,John,meet,Bill] ;
INT/EXT: {C, {INFL_v, {Bill, {v_meet:θ:pst:ext(do), {meet_θ, John}}}}}
EXT: Bill 3sg pst meet John
Spellout: Bill meeted John
Blocked: inconsistent with input!
INT/EXT: {C_Q_aux(null,pst,meet), {INFL_v, {Bill, {v_meet:θ:pst:ext(do), {meet_θ, John}}}}}
EXT: null pst meet →→ Bill 3sg pst meet John
Spellout: 3sg pst do Bill meet John
Spellout: did Bill meet John
Blocked: inconsistent with input!
INT/EXT: {C, {INFL_v, {{Bill, John}, {v_meet:θ:pst:ext(do), {meet_θ, {Bill, John}}}}}}
EXT: {Bill,[and],John} 3sg pst meet {Bill,[and],John}
Blocked: EXT inconsistent!
Blocked: inconsistent with input!
INT/EXT: {C_Q_aux(null,pst,meet), {INFL_v, {{Bill, John}, {v_meet:θ:pst:ext(do), {meet_θ, {Bill, John}}}}}}
EXT: null pst meet →→ {Bill,[and],John} 3sg pst meet {Bill,[and],John}
Spellout: 3sg pst do {Bill,[and],John} meet {Bill,[and],John}
Blocked: EXT inconsistent!
Blocked: inconsistent with input!
false.
102 ?- report.
REPORT LENGTH: 50
true.