formatAddr table (AddrSymbol sym) = do
  lit <- Map.lookup sym table
  return (toBinaryString lit)
formatAddr table (AddrSymbol sym) = do
  lit <- Map.lookup sym table
  return (toBinaryString lit)
formatAddr table (AddrSymbol sym) = do
  lit <- Map.lookup sym table
  return (toBinaryString lit)