procedure main()
every|read()&writes("yes ")
end