for (1..10)
{
print $bw->readline;
}