a=22 do 19 call charout,a a=7*a%3 end