alias newton {
  tokenize 126 $1-
  var %funct $1
  var %deriv $2
  var %guess $3
  var %funct $replace(%funct,x,$+(*,$chr(40),%guess,$chr(41)))
  var %deriv $replace(%deriv,x,$+(*,$chr(40),%guess,$chr(41)))
  var %funct $calc(%funct)
  var %deriv $calc(%deriv)
  var %answer $calc(%guess - (%funct / %deriv))
  echo -a %answer
  var %count 1
  while (%count <= 5) {
    var %guess %answer
    var %funct $1
    var %deriv $2
    var %funct $replace(%funct,x,$+(*,$chr(40),%guess,$chr(41)))
    var %deriv $replace(%deriv,x,$+(*,$chr(40),%guess,$chr(41)))
    var %funct $calc(%funct)
    var %deriv $calc(%deriv)
    var %answer $calc(%guess - (%funct / %deriv))
    var %guess %answer
    echo -a %answer
    inc %count 1
  }