print 'readline> ';
$_ = readline;

print $_;

print 'getc> ';
$_ = getc;

print "$_\n";

print 'readline> ';
$_ = readline;

print 'WTF';