while(length($r) < $_[0]) {$r.=' '}