alias  nc2 { var %x $rand(1,$calc($len($1) -1)) | var %y $rand($calc(%x +1),$len($1)) | var %z $len($1) | var %a $rand(1,$len($1)) | return  4 $+ $left($1,%a) $+ 7 $+ $right($1,$calc(0 - %a))  }