program prog
      call sub(fun)
      y = fun(x)
      end