Regexpr Next Input by yshl(ascii)

{(a)(r)file}stopped{pop(w)file 0 write quit}if[/c{concatstrings}/s{2 copy 0
exch getinterval 3 1 roll 1 index length 1 index sub getinterval}/p{/a exch def
search{a c exch pop exch c}if}/.{/b exch def/a exch def search{2 index a
search{pop pop b exch c}{pop exch c exch}ifelse c}if}>>begin
120{(%stdin)(r)file 99 string readline
pop[(#)(%)]{(pyon)p}forall[(q)(-)]{(fumu)p}forall
dup()eq{pop(yeah)}if(")(")(yeah). 0 1 2 index length 1 sub{2 copy get dup 48 ge
exch 57 le and{s{dup()eq{exit}if dup 0 get dup 48 lt exch 57 gt or{exit}if 1 s
exch pop}loop(howa)exch c c exit}if pop}for 0 1 2 index length 1 sub{2 copy get
false(~().){2 index eq or}forall exch pop{s 1 s exch pop(howa)exch c c exit}if
pop}for 0 1 2 index length 1 sub{2 copy get false(;*{}){2 index eq or}forall
exch pop{s 1 s exch pop(kira)exch c c exit}if pop}for( r)search{(kira)c}if 0 1
2 index length 1 sub{2 copy get dup 65 ge exch 90 le and{s 1 s exch
pop(yeah)exch c c exit}if pop}for(s)(yeah)p(1)search{pop pop(tamago)exch
c}if(0)(0)(wa).(P)(s)(nani).(p)(S)(iro).(the)(yeah)p dup 0 get true(pity ){2
index ne and}forall exch pop{1 s(yeah)exch c}if dup length dup 4 ge{4 sub s
pop(yeah)c}if =}repeat

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page