(subst "@" "%" (apply + (cddr:rev:cdr:ssplit "42 rg .o ish %dre dan @example. com")))
[let f nil (= f (_ [f _])) f]