program recurse (output);

var i : integer;

function emit (i : integer) : integer;
begin
  writeln ('Emit ',i:1) ;
  if i = 0 then writeln ('I be nought')
           else if (i DIV 10) <> emit (i DIV 10) then writeln ('Help!')
                                        else write (i MOD 10);
  emit := i
end;

begin
  i := emit (1);
  i := emit (10)
end.