a <- p2open("./dict.pl");

wordtr(word)=do(pputs(a,symstr(word)),
                pread(a));

trad(phrase) = < wordtr(x) | x <- phrase > ;

; Transating a single word:
; pp(wordtr('ela));

; Transating a word sequence:
x <- trad(<'ela,'é,'uma,'simpatica,'rapariga>);

; pp(x);

; pputs(a,"souuuu");
; princ("souuuu=",pread(a),"\n");

; pp( if(x == <'she, 'is, 'a, 'nice, 'girl> ) then "ok" else ":-(" );
_ok("p2open (dict.pl)", x, <'she, 'is, 'a, 'nice, 'girl>);
p2close(a);

quit.