procedure main();every|write(180*read()/&pi+.05?tab(find(".")+2));end