alias r { say $replacecs($1-, $&
    ja,ÿ,$&
    ju,þ,$&
    ch,÷,$&
    sh,ø,$&
    zh,æ,$&
    a,à, $&
    b,á, $&
    c, ö, $&
    d, ä, $&
    e,å, $&
    f,ô, $&
    g,ã, $&
    h,õ,$&
    i,è,$&
    j,é,$&
    k,ê,$&
    l,ë,$&
    m,ì,$&
    n,í,$&
    o,î,$&
    p,ï,$&
    q,q,$&
    r,ð,$&
    s,ñ,$&
    t,ò,$&
    u,ó,$&
    v,â,$&
    w,w,$&
    x,êñ,$&
    y,û,$&
    z,ç,$&
  ',ü) }