>>21
EmacsLispだが基本関数しか使ってないので、多分大丈夫だろう。

(defun eigo(lst)
　(setq a (car lst))
　(setq b (car (cdr lst)))
　(cond ((= a b) (list a 'is 'equal 'to b))
　　　　((> a b) (list a 'is 'greater 'than b))
　　　　((< a b) (list a 'is 'less 'than b)))
)

japの定義も同じようにすればいい。