alias spaceout {
  var %a xxxxxxxxxxxxxxxxxxxxx, %b $len(%a), %c, %d, %e 5
  while %e { 
    %c = $r(1,$(%b))
    %a = $left(%a,$+(-,$calc(%c +1))) $right(%a,%c)
    dec %e
  } 
  echo -a %a
}