on *:Input:#: {
if $regex($1-,/(^[^/])/) && !$ctrlenter {
.set %kelime $1-
var %a = 1
while (%a <= $0) {
if ($wildtok(%kelime,*,%a,32) ison #) {
.set %kelime $puttok(%kelime,$+($chr(2),$wildtok(%kelime,*,%a,32),$chr(15)),%a,32)
}
inc %a
}
say %kelime
halt
}
}