Çevrimdışı

kısa ayzı dediğin koddaki

if (/* iswm $1) { return }

var %a 0, %b, %c

while (%a < $numtok($1-,32)) {

inc %a

%c = $gettok($1-,%a,32)

if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(4,%c,) }

else { %b = %b %c }

}

if (!%b) { %b = $1- }

say %b

halt

alt kısımda olan bu kısmı silmen gerekli