procedure main()
every r:=|read()&write(r[5]>>r[3]>>r)
end