procedure main() every put(a:=[0],0<3*write(!a\105)+!"01") end