print_

$({[x]([x],[y],[z])})
  ($({
    iff(
    (greater(0.000001,abs([y]([z]))))
    |(greater(abs([y]([z])),1000000)),
    {[z]},
    {[x]([x],[y],
      $({[y] - ([x]([y]))/
        $({(([x]([y]+[z])) 
           -([x]([y]-[z])))/(2*[z])
        })([x],[y],[z])
      })([y],[z],0.0001))})}),
  $({[x] - cos([x])}),
  1)