#!/usr/bin/perl

$rad = $ARGV[0];

$pi = 3.141562;

$num = 64;

foreach $s (0 .. ($num-1)) {

    $o = sprintf("%d, ",
                 sin( $s * $pi *2 / $num) * $rad + $rad);

    $c += length($o);

    print $o;

    if($c > 70) {
        print "\n";
        $c=0;
    }
}
print "\n";