#!/usr/bin/perl -w

use strict;
$|=1;
use popchar;
my($pch) = popchar->new;
while(1) { 
		print "\rLoading ".$pch->pc();
}