procedure main()
    every i := 1 to 25 do {
	v := 0.25 * i
	wf (v)
	if (v <= 1.0) then
	    every wf ((acos | asin) (v))
	else
	    every wf ("" | "")
	every wf (atan(v) | atan(v,3))
	every wf ((cos | sin | tan) (v))
	every wf ((sqrt | exp | log) (v))
	wf (log(v,3))
	write ()
    }
    end

procedure wf (v)
    writes(left(v,5)," ")
    end