sub rpad { pack "A$_[1]", $_[0]};