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