8 lines
154 B
Racket
8 lines
154 B
Racket
#lang datalog/sexp
|
|
(! (tpme tpme1))
|
|
(! (ms m1 "TPME" tpme1 ek tp))
|
|
(! (:- (says TPME M)
|
|
(tpme TPME)
|
|
(ms M "TPME" TPME A B)))
|
|
(? (says A B))
|