fork(8) download
$_=$$/$$;@_=$_+$_;$-_=$_-@_
$__=->_{_==[]||_==''?$.:$_+$__[_[$_..$-_]]}
@__=->_,&__{_==[]?[]:[__[_[$.]]]+@__[_[$_..$-_],&__]}
$_____=->_{@__[[*_],&->__{__[$.]}]}
@_____=->_{@__[[*_],&->__{__[$-_]}]}
$______=->_{___,______=$_____[_],@_____[_];_____=$__[___];____={};__=$.;(_=->{
  ____[______[__]]=___[__];(__+=$_)==_____ ?____:_[]})[]}
@______=->_,__{_=[*_]+[*__];____=$__[_];___={};__=$.;(_____=->{
  ___[_[__][$.]]=_[__][$_];(__+=$_)==____ ?___:_____[]})[]}
$_______=->_{$___=[];@___=$__[_];__=___=____=$.;$____,@____={},[]
(_____=->{
  _[____]=='['?(@____<<____):$.
  _[____]==']'?($____[@____[$-_]]=____;@____=@____[$...$.-@_]):$.
  (____+=$_)==@___?$.:_____[]})[]
$____=$____=={}?{}:@______[$____,$______[$____]]
(______=->{_[__]==
'+'?($___[___]||=$.;$___[___]+=$_):_[__]==
'-'?($___[___]||=$.;$___[___]-=$_):_[__]==
'>'?(___+=$_):_[__]==
'<'?(___-=$_):_[__]==
'['?(__=($___[___]||$.)==$.?$____[__]:__):_[__]==
']'?(__=($___[___]||$.)!=$.?$____[__]:__):_[__]==
'.'?($><<(''<<$___[___])):$.
(__+=$_)==@___?_:______[]})[]}
$_______['++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.']
Success #stdin #stdout 0.02s 7772KB
stdin
Standard input is empty
stdout
Hello World!