#!/usr/bin/perl -w

$x = 3;
$y = 0;

do {
$y = $x;

$x = $x - (sin($x)/cos($x));


} until ($x == $y);
print "$x\n";

########################
########################

$x = 2;
$y = 0;

do {
$y = $x;

$x = $x - ((log($x) - 1) * $x);


} until ($x == $y);
print "$x\n";