formatDest :: Set (HackRegister) -> Text
formatDest dest =
  T.pack $ map hot [RegA, RegD, RegM]
  where
    hot :: HackRegister -> Char
    hot reg =
      if Set.member reg dest then '1' else '0'
formatDest :: Set (HackRegister) -> Text
formatDest dest =
  T.pack $ map hot [RegA, RegD, RegM]
  where
    hot :: HackRegister -> Char
    hot reg =
      if Set.member reg dest then '1' else '0'
formatDest dest =
  T.pack $ map hot [RegA, RegD, RegM]
  where
    hot :: HackRegister -> Char
    hot reg =
      if Set.member reg dest then '1' else '0'