procedure main() a:=22 every|(a:=writes(a)*7/3)\19 end