#!/usr/bin/perl

$goal = 2181818;

while (TRUE) {
	for ($i=0; $i<=$goal; $i++) {
		$x = 0.000001;
		$y = sin($x);
		$y = $y + 0.00001;

	}

	next;
	$y = $y + 0.01;
}