alias rast {
  var %a enes.txt,%b $r(1,$lines(enes.txt)),%z $read(enes.txt,$+(%b))
  tokenize 32 $read(enes.txt,$+(%b))
  var %g $0, %c $r(1,$0)
  if %g > 1 { var %d $r(1,$0) | if %d = %c { var %d $r(1,$0) } }
  var %e %z
  set %h $token($read(enes.txt,$+(%b)),$+(%c),32) $token($read(enes.txt,$+(%b)),$+(%d),32)
  while (%g) { if %g != %d && %g != %c { set %h $addtok(%h,$token($read(enes.txt,$+(%b)),$+(%g),32),32) | dec %g } | else { dec %g }  } 
  write -l $+ %e enes.txt %h
  echo -a %h
  unset %h
}

yüreğim sorsan düşlerini almaz
dayanmaz.. ömür bahara başka bir belki
almaz sorsan düşlerini yüreğim
yüreğim sorsan düşlerini almaz
anlatmaz hiçbir name..
bir belki dayanmaz.. ömür bahara başka