$|++;$m--;map{$m=m;\S;s?++$m:-(print(map{chr($_+($|<<$|+$m+$|)+($m<<$m +-$|)-($_-($|<<$m)?$[:($|+$|)**($m+$|)))}@s,-($m<<$m-$|)-($|<<$m+$|))) +-(@s=());$g=($[)[$[];$s[$g++]+=(s:;:;:s?$|:$[)[$[]<<${m}for(m((....)) +g)}(<DATA>); __DATA__ ::: : ; .;. ::: ; : : ; : : : ; `:. ; ; : : : : :´ `;´ `;´ ; .;. .:. .;. ::: : : ;:; ::. : : ; ; ; ; : : : : : ; ::: : ; : ; ; ::: :; ::. : : ; ; : ; : : ; : : : : : : : `:´ ; : : ::: : ; ::. ::; ::. : : : : ; : : :: :; ::. ; : : : : ; ; ::: ; ; ::: : : .;. .;. ; : ;:: ::. : : : : ; : ; : : ; ::: ::: : ::. ;: ::. ; : : : : ; : : : : : : : : `:´ : : ::: ; : __END__
Interesting OCR - or is it?
cLive ;-)
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |