(include "include/prolog.scm")

(! (man socrates))
(:- (mortal ?x) (man ?x))
(? (mortal ?who))