printStatement :: Statement -> Doc
printStatement s = case s of
    Statement t -> pretty t
    PrefixStatement (PrefixR p iri)
        -> text "@prefix" <+> pretty p <> colon <+> pretty iri <+> dot
    BaseStatement (Base iri) -> text "@base" <+> pretty iri <+> dot
printStatement :: Statement -> Doc
printStatement s = case s of
    Statement t -> pretty t
    PrefixStatement (PrefixR p iri)
        -> text "@prefix" <+> pretty p <> colon <+> pretty iri <+> dot
    BaseStatement (Base iri) -> text "@base" <+> pretty iri <+> dot
printStatement s = case s of
    Statement t -> pretty t
    PrefixStatement (PrefixR p iri)
        -> text "@prefix" <+> pretty p <> colon <+> pretty iri <+> dot
    BaseStatement (Base iri) -> text "@base" <+> pretty iri <+> dot