LowerCase & UpperCase with TextToUnicode & UnicodeToText

l1={"House", "Book"}[br][br]l2= Sequence(TextToUnicode(Element(l1, i)), i, 1, Length(l1))[br][br]l3=Sequence(Sequence(If(j ≟ 1 ∧ 65 ≤ Element(Element(l2, i), j) ≤ 90, Element(Element(l2, i), j) + 32, Element(Element(l2, i), j)), j, 1, Length(Element(l2, i))), i, 1, Length(l2))[br][br]l4= Sequence(UnicodeToText(Element(l3, i)), i, 1, Length(l3))

Information: LowerCase & UpperCase with TextToUnicode & UnicodeToText