#!/usr/bin/perl -w

for ($i=0; $i<40; $i++) {
	print $i."\t".(sin($i/3.7) + sin($i/2.154) + sin($i))."\n";
}