; --------------------
; requires file:  dicn
; --------------------

FUNC unix(n:STR ):SEXP
RETURNS  let(f = popen(n,"r"),
             r = readf(f),
             x = pclose(f))
         in r; 

FUNC p2i(n:SYM):SYM                    /* port. word to english */
RETURNS let (com=strcat( "awk '$1==\"",
                         symstr(n),
                         "\" {print $2}' dicn"))
        in   unix(com);

FUNC trad(x:SYM-seq):SYM-seq          /* port phrase to english */
RETURNS <p2i(y) | y <- x >;

;---------------- test

x <- trad(<'eu,'sou,'um,'simpatico,'rapaz>);

pp(if(x == <'I,'am,'a,'nice,'boy> -> 'ok, else -> 'error));