OntoGram Prototype

Enter tagged sentence:
Result: 
no sentence entered ...
Rules: 
rule('R01: ', [Y/ap, Z/np],R):-append(Z,[chr:Y],R).
rule('R02: ', [X/ap, Y/ap, Z/np],R):-append(Z,[chr:X, chr:Y],R).
rule('R02a: ', [X/ap, Y/ap, Z/ap, W/np],R):-append(W,[chr:X, chr:Y, chr:Z],R).
rule('R02k: ', [[virus]/nn, X/nn],R):-append(X,[cau:virus],R).
rule('R03: ', [Y/nn, Z/nn],R):-append(Z,[wrt:Y],R).
rule('R03b: ', [Y/nn, Z/nn, W/nn],R):-append(W,[wrt:[Z,wrt:Y]],R).
rule('R04: ', [_/dt, Y/np],Y).
rule('R05: ', [X/np, _/in, Z/np],R):-append(X,[wrt:Z],R).
rule('R05a: ', [X/np, _/in, Z/np, _/in, Y/np],R):-append(X,[wrt:Z,[wrt:Y]],R).
rule('R05b: ', [X/np, _/in, Z/np, _/in, Y/np],R):-append(X,[wrt:Z,wrt:Y],R).
rule('R006: ', [X/np, Y/vg, Z/np],R):-(head(Y,amuse))-> append([amusement],[cau:X, exp:Z],R).
%rule('R06: ', [X/np, Y/vg, Z/np],R):-(head(Y,amuse), isa(Z,animate))-> append([amusement],[cau:X, exp:Z],R).
%rule('R06: ', [X/np, Y/vg, Z/np],R):-(head(Y,amuse), omap(Z,Z1), isa([Z1|_],social_group_7950920_1))-> append([amusement],[cau:X, exp:Z],R).
rule('R07: ', [X1/np, X2/vg, X3/np],R) :- isa(X1,animate), head(X2,Y), member(Y,[accompany,conduct,escort,guide,lead,shepherd,steer]), isa(X3,animate) -> append([conduction],[agt:X1,thm:X3],R).

rule('R08: ', [X1/_, X2/_, X3/vg, X4/np],R):- (lemma(X1,it), lemma(X2,be), head(X3,blow), isa(X4,[concrete,force])) -> append([blow], [thm:X4],R).
rule('R09: ', [X1/prep, X2/np, X3/vg, X4/np],R):- (lemma(X1,[in,on,at]), isa(X2,concrete), head(X3,zigzag), isa(X4,[animate, machine])) -> append([blow], [thm:X4],R).
rule('R10: ', [X1/np, X2/vg, X3/np],R):- (head(X2,babble), isa(X3, [-animate])) -> append([babble], [agt:X1, thm:X3],R).
rule('R11: ', [X1/np, X2/vg, X3/np],R):- (head(X2,drink), isa(X3, [comestible]), isa(X3, [-solid])) -> append([drink], [agt:X1, pnt:X3],R).
rule('R12: ', [_/dt, Y/ap, Z/np],R):-append(Z,[chr:Y],R).
rule('R13: ', [X/np, Y/vg, Z/np],R):-(head(Y,inhibit), isa(Z,process))-> append([inhibition],[agt:X, pnt:Z],R).
rule('R14: ', [_/rb, Y/jj],Y).
rule('R06a: ', [X/np, Y/vg, Z/np],R):-(head(Y,amuse), isa(Z,living_thing_4258_1))-> append([amusement],[cau:X, exp:Z],R).
rule('R015: ', [X/np, Y/vg, Z/np],R):-(head(Y,eat), isa(X,living_thing_4258_1), isa(Z,comestible_7556637_1))-> append([eating],[agent:X, patient:Z],R).
rule('R16: ', [X/np, Y/vg, Z/np],R):-(head(Y,run))-> append([running],[cau:X, exp:Z],R).rule('R00: ',[X/np],[R]):- omap(X,R).rule('R00a: ', [X/np],X).
Example sentences: