6 lines
120 B
Racket
6 lines
120 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)?
|