procedure main() every(x:=|read()):=cos(x-&pi/!36ruo00drb108i)|write(5e-7-x?tab(9)) end