procedure main()
every put(a:=[0],0<3*write(!a)+(0|1))\208
end