printSubject :: Subject -> Doc
printSubject subj = case subj of
    Subject iri -> pretty iri
    SubjectList ls -> brackets $ ppWithSemis ls
    SubjectCollection c -> parens $ (hsep . map pretty) c
printSubject :: Subject -> Doc
printSubject subj = case subj of
    Subject iri -> pretty iri
    SubjectList ls -> brackets $ ppWithSemis ls
    SubjectCollection c -> parens $ (hsep . map pretty) c
printSubject subj = case subj of
    Subject iri -> pretty iri
    SubjectList ls -> brackets $ ppWithSemis ls
    SubjectCollection c -> parens $ (hsep . map pretty) c