procedure main() every write("x = ",(x:=0to 30)*.1,", y = ",(a:=1.105170833^x+5e-7)[1:find(".",a)+7]) end