showResult :: BinSyntax a -> Either String a -> String
showResult syn =  d where
  d (Right r) = "Good isomorphism syntax:\n" ++
                unpack (fromRight (runAsPrinterChar8 syn r)) ++ "\n"
  d (Left  e) = e
  fromRight (Right r) = r
showResult :: BinSyntax a -> Either String a -> String
showResult syn =  d where
  d (Right r) = "Good isomorphism syntax:\n" ++
                unpack (fromRight (runAsPrinterChar8 syn r)) ++ "\n"
  d (Left  e) = e
  fromRight (Right r) = r
showResult syn =  d where
  d (Right r) = "Good isomorphism syntax:\n" ++
                unpack (fromRight (runAsPrinterChar8 syn r)) ++ "\n"
  d (Left  e) = e
  fromRight (Right r) = r