sub gapify_lk {
  $s=shift;$s=~s/(.*-)?.{$_}/$&-/for@_;$s
}