procedure main()
   every 1 to 10 do write( "?10=", ?10 )  # write random numbers
end