procedure main() while write(read()?tab(upto(" :a"))) end