Package : IO {
  Char i;
  Char d;
  Char c;
  Array(Char,4) t;
  Integer main {
  charGet ( c ) ; If c ^ 48
  Then { INCR d ; }
  While d Do { DECR d ; INCR i
  ; INCR i ; } charGet ( c ) ;
  If c ^ 48 Then { INCR i ; }
  INCR t(3);charPut(48^t(i));0;
  }
} truthTable;
