/c{concatstrings}def[7{(%stdin)(r)file 127 string readline pop 79{( )exch
c}repeat 79{( )c}repeat}repeat]0 1 2 index 0 get length 80 sub{0 1 6{2 index 1
index get 2 index 80 getinterval exch 3 eq 1 index 50 get 35 eq and{80 string
copy dup 50 42 put}if =}for pop()=}for
Note that non-ascii characters in the above source code will be escaped (such as \x9f).