begin
   
   %use C's exit function%
   procedure exit(integer value code); algol "exit"; 
   
   write(1234); 
   exit(3);
end