#!/usr/bin/perl

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

if (@ARGV) {
    while (<>) {
	foreach (split(//)) {
	    print;
	    select(0,0,0, 0.005 * $DELAY);
	}
    }
} else {
    while (read(STDIN,$_,4) > 0) {
	print;
	select(0,0,0, 0.005 * $DELAY);
    } 
}