An LC-3 Disassembler in Haskell