invocable all
procedure main()

d := 30          # degrees
r := dtor(d)     # convert to radians

every write(f := !["sin","cos","tan"],"(",r,")=",y := f(r)," ",fi := "a" || f,"(",y,")=",x := fi(y)," rad = ",rtod(x)," deg")
end