print "Palun number kahega korrutamiseks: ";
$arv=<STDIN>;
print $arv*2, "\n";