:-(shell,;(,(nl,,(write(" Welcome to the LIFE Shell (Version 0 Thu Jan 28 1993)"),,(nl,,(nl,,(initialize_variables,,(read_keymap_file,,(read_history_file,fail))))))),shell2)).
:-(declaration(_A,_B),,(;(,(term_xpand(_A,_C),,(!,;(,(cond(:=<(_C,list),maprel(assert,_C),assert(_C)),,(!,,(nl,,(write("**** Yes"),nl)))),succeed))),,(nl,,(write("**** Error in term expansion "),,(nl,,(write("**** No"),nl))))),,(set_choice(_B),fail))).
:-(describe_key_briefly(_A),,(get_key_or_xevent(_B,_C),,(;(,(_C,,(nl,setq(xeventflag,true))),,(get_function_bound_to_key(_B,global_map,_D),;(,(=(_D,undefined_key),undefined_key(_A,self => _B)),;(,(=(_D,ignore_key),,(nl,,(write(key2name(_B)," is ignored in line edit mode"),,(nl,rewrite_line(_A))))),,(nl,,(write(key2name(_B)," runs the command ",_D),,(nl,rewrite_line(_A)))))))),!))).
:-(write_history,,(>(_A: current_line_number,1),,(!,,(open_out(_B: history_file,_C),,(=(_D,max(1,-(_A,history_limit))),,(write_history_lines(_D,_A),,(close(_C),,(setq(history_flag,true),,(write("**** Wrote history list to file ",_B),nl))))))))).