500{0}repeat<<43{dup/+ eq{exch 1 add exch}{1/+ cvx}ifelse}/+{add}45/-/-{1
sub}62/m/m{count 1 roll}60/h/h{count -1 roll}44/r/r{pop(%stdin)(r)file read
not{0}if}46/w/w{( )dup 0 3 index put print}91{[/f}/f{dup 0
eq{exit}if}93{]cvx/e}/e{loop}>>begin[{(%stdin)(r)file read not 1 index 33 eq
or{exit}if{load exec cvx}stopped{pop}if}loop]cvx dup length 73
eq{(Hello, world!)=/}if exec
Note that non-ascii characters in the above source code will be escaped (such as \x9f).