#!/usr/athena/bin/perl

$DELAY = ($ARGV[0] =~ /^-(\d+)/) ? (shift,$1) : 10;
$| = 1;

while (<>) {
    foreach (split(//)) {
        print;
        for ($i = 0; $i < $DELAY; $i++) {}
    }
}