procedure main()
every writes(ior(.30103*2^(0to 20)+1,0)," ")
end