sub f {
  (1x(my$n=$_[0]))=~/(1+)\1+$/;my$p=$+[1];$p>1?(f($n/$p),f($p)):$n
}