I:=8.(Set evaluate:'#(16r',(stdin contents trimSeparators asUppercase copyReplaceAll:' 'with:' 16r'),')')fold:[:p :q|(I:=I+1\\9)=8or:[('',(#[],{(q*256+p bitShift:0-I)\\128}))display].q]!
Note that non-ascii characters in the above source code will be escaped (such as \x9f).