#!/usr/bin/perl -w

for ($t=0.0; $t<1.0; $t += 1.0/88200.0) {
	print &lin($t) * sin($t * 4000)."\n";
}

sub lin {
	local($x) = @_;

	return sqrt(1.0-(1.0-$x)*(1.0-$x));
}
