%	Sample Program 1 for Shaky v2.0
	Copyright (C) 1998, $B7s4d(B  $B7{(B(kaneiwa@jaist.ac.jp)     %

agt=person.
coagt=person.
obj=thing.
result=top.
tool=thing.
place=space.

taro<minor.
jiro<minor.
hanako<adult.
adult<person.
minor<person.
beer<alcoholic.
sake<alcoholic.
alcoholic<thing.
bat<thing.
bar<space.
corpse<top.

hit<-do.
minor_drinking<-illegal_act.
homicide<-illegal_act.

s1<<s2.
s2<<s3.

s1:hit(agt=X:taro,coagt=Y:hanako,tool=Z:bat).
s1:intend(agt=X:taro,coagt=Y:hanako,result=Z:corpse).
s0:drink(agt=X:jiro,obj=Y:sake).

S::S:homicide(agt=X:person,coagt=Y:person) <-
S:hit(agt=X:person,coagt=Y:person),
S:intend(agt=X:person,coagt=Y:person,result=Z:corpse).

S:#drink(agt=adult,obj=alcoholic).
S2::S2:minor_drinking(agt=X:minor) <- S2:drink(agt=X:minor,obj=Y:alcoholic).
