begin
   long real a;
   %use C's sin function%
   real procedure newsin(real value code); algol "sin"; 
   
   write(1234); 
   a := newsin(3);
   write(a);
end