Untitled

on 1:input:#:{
  var %tmp, %i = 1, %b
  while (%i <= $len($1-)) {
    if ($mid($1-,%i,1) == $chr(32)) {
      %tmp = %tmp $chr(32)
      inc %i
      continue
    }
    %b = $r(1,2)
    if (%b == 1) %tmp = %tmp $+ 2
    %tmp = %tmp $+ $mid($1-,%i,1)
    inc %i
  }
  msg # %tmp
  halt
}