stdin linesDo:[:x|x~'M|<'and:[(T:=0)to:x size- 2 do:[:i|T:=T*64+((x byteAt:i+2)- 32\\64).i\\4<1or:[('',(#[],{(T bitShift:i\\4- 3*2)\\128}))display]]]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page