#!/usr/bin/perl -w
my $scale = 1;
foreach my $c (0..999) {
	my $x = ($c % 4) / 1000.0 * $scale;
	my $y = $c / 1000.0 * $scale;
	printf "G1 X%f Y%f F200\n", $x, $y;
}