The Pico Evaluator

(contents of the file Pico.pco)
general info

{ Pico():
    { make_global();
      display('start Pico', eoln);
      entry: accept(); 
      while(not(entry = ''),
            { display(eoln);
              print(eval(read(entry)));
              display(eoln);
              entry:= accept() });
      display(eoln, 'end Pico') };
  Pico() }

Back to the metacircular evaluator

This page was made (with lots of hard work!) by Wolfgang De Meuter