#!/usr/local/bin/perl -w

$argc = @ARGV;
die "Usage: $0 number...\n" if $argc == 0;

$iterations = int(200 / $argc) * $argc;

for ($i = 0; $i < $iterations; $i++)
    {
    print "obeyw taurus sfill " . ($i + 1) . " $ARGV[$i % $argc]\n";
    }