$maybe route <- mcurrentRoute

#{prettyPgp key}
#{userNote user}

#{userEmail user} $forall (site, profile) <- userProfiles
#{profileUsername profile}