query: select distinct (?l as ?item) (concat("[[Lexeme:", replace(str(?l), str(wd:), ""), "|", replace(str(?l), str(wd:), ""), "]]") as ?l_) ?lemma ?len {
    ?l dct:language wd:Q188;
       wikibase:lemma ?lemma.
    filter (regex(lcase(str(?lemma)), "[aeiouäöü]{4}")).
    bind (replace(lcase(str(?lemma)), ".*(?<=[^aeiouäöü]