1) list($s,$n) = ["$n#$s",$n-1-strlen($n)]; return ( $n? '#' : '' ).$s; }