outStanza | (isMessage) = outMessage | (isPresence) = outPresence | (isIQ) = outIQWhy such a style doesn't work, so I must write ugly code like that: