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]]]]