alias cumletemizle {
  var %i 1
  while %i <= $lines($+(",$1-,")) {
    if !$read($+(",$1-,2,"),w,$read($+(",$1-,"),%i)) { write $+(",$1-,2,") $read($+(",$1-,"),%i) }
    inc %i
  }
  .remove $+(",$1-,")
  .rename $+(",$1-,2,") $+(",$1-,")
}