printTerm :: Term -> Doc
printTerm t = case t of
    SubjectTerm iri -> printExpandedIRI iri
    PredicateTerm iri -> printExpandedIRI iri
    ObjectTerm obj -> case obj of
        Right lit -> pretty lit
        Left iri -> printExpandedIRI iri
printTerm :: Term -> Doc
printTerm t = case t of
    SubjectTerm iri -> printExpandedIRI iri
    PredicateTerm iri -> printExpandedIRI iri
    ObjectTerm obj -> case obj of
        Right lit -> pretty lit
        Left iri -> printExpandedIRI iri
printTerm t = case t of
    SubjectTerm iri -> printExpandedIRI iri
    PredicateTerm iri -> printExpandedIRI iri
    ObjectTerm obj -> case obj of
        Right lit -> pretty lit
        Left iri -> printExpandedIRI iri