#include/*
$r='$c=~s/putchar
/pri';$c=q%#[*/<stdio.h> /*-]*/
char*O=" +++ +[>++++++++<-] +++ +++\
++++>[ >+> ++ +<< -]>>+ +++ +++ [> +>\
+<<-]>> <<<< <.. >>. ... ... .<\
+++[>+ +++ ++++ <-] >+ +> >>+. +++ +++ ++ +\
+++.. --- -.< <<.- --- -- ----- ..[< +>> +<\
-]> >> ++ +++ .< .> ..< <-.> >\
--- ---.+++ .< .< << .<. .. "; int/* >+[ >]
[*/ main (){ int R, G, N[ 8], U; for (U= 00;U <8
;N[ U++ ]=0 ){ }for( U=G =U -U ;O [R =G++ ]; ){
if (O[ R]== 43 ){++N[U ];} else{ if (O[ R]==60 ){
-- U;}else {{ ;} if( 91 == O [R] ){if(N[ U]
== 0){ for (; O[ G]- 93; G++ ){;}G++;
}} else{if (+O [R ]== 45 ){N [U] --; }else{ if
(O[R]==62){U++;} else{R =G -1; if (O [R ]==46 ){
putchar(N[U]); }else { if( O[R ]== 93) { for
(G--;O[G]- 91; -- G){ }}} }} }} }}return-0;}
#/* (c) */ line 04 /*> UG UU
srand +0; %;($r .=' nt+ chr /;$c=~s/
([A-U]) /\$ $1 /g;$c=~s/char\
s*\*\$O\s*=/ \@O=unpack"C*",/;$c=~s
!int/[^/]+/!sub!;')=~s/[\n ]//g;eval$r;
eval"$c;main();"; #]*/
|