// #pragma GCC optimize("Ofast","unroll-loops")
// //#pragma GCC push_options
// //#pragma GCC target("sse,sse2,sse3,ssse3,sse4,popcnt,abm,mmx,avx,tune=native")
// #include<bits/stdc++.h>
// #include <xmmintrin.h>
// #include <immintrin.h>
// using namespace::std;
// __attribute__((constructor))void init(){cin.tie(0);ios::sync_with_stdio(false);cout<<fixed<<setprecision(15);}
// #include<ext/pb_ds/assoc_container.hpp>
// #include<ext/pb_ds/tree_policy.hpp>
// #include <ext/pb_ds/priority_queue.hpp>
// #include<ext/pb_ds/tag_and_trait.hpp>
// template<typename T>using pbds=__gnu_pbds::tree<T,__gnu_pbds::null_type,less<T>,__gnu_pbds::rb_tree_tag,__gnu_pbds::tree_order_statistics_node_update>;
// template<typename T>using pbds_map=__gnu_pbds::tree<T,T,less<T>,__gnu_pbds::rb_tree_tag,__gnu_pbds::tree_order_statistics_node_update>;
// template<typename T,typename E>using hash_map=__gnu_pbds::gp_hash_table<T,E>;
// template<typename T>using pqueue =__gnu_pbds::priority_queue<T, less<T>,__gnu_pbds::rc_binomial_heap_tag>;
// typedef long long lint;
// #define INF (1LL<<60)
// #define IINF (1<<30)
// #define EPS (1e-10)
// #define MOD 1000000007LL
// typedef vector<lint> vec;
// typedef vector<vector<lint>> mat;
// typedef vector<string> svec;
// typedef vector<vector<string>> smat;
// template<typename T>inline void numout(T t){bool f=0;for(auto i:t){cout<<(f?" ":"")<<i<INF/2?i:"INF";f=1;}cout<<endl;}
// template<typename T>inline void numout2(T t){for(auto i:t)numout(i);}
// template<typename T>inline void output(T t){bool f=0;for(auto i:t){cout<<(f?" ":"")<<i;f=1;}cout<<endl;}
// template<typename T>inline void output2(T t){for(auto i:t)output(i);}
// template<typename T>inline void _output(T t){bool f=0;for(lint i=0;i<t.size();i++){cout<<f?"":" "<<t[i];f=1;}cout<<endl;}
// template<typename T>inline void _output2(T t){for(lint i=0;i<t.size();i++)output(t[i]);}
// #define rep(i,n) for(lint i=0;i<lint(n);++i)
// #define repi(i,a,b) for(lint i=lint(a);i<(lint)(b);++i)
// #define rrep(i,n) for(lint i=lint(n)-1;i>=0;--i)
// #define rrepi(i,a,b) for(lint i=lint(b)-1;i>=lint(a);--i)
// #define irep(i) for(lint i=0;;++i)
// #define all(n) begin(n),end(n)
// #define dist(a,b,c,d) sqrt(pow(a-c,2)+pow(b-d,2))
// inline lint gcd(lint A,lint B){return B?gcd(B,A%B):A;}
// inline lint lcm(lint A,lint B){return A/gcd(A,B)*B;}
// inline bool chmin(auto& s,const auto& t){bool res=s>t;s=min(s,t);return res;}
// inline bool chmax(auto& s,const auto& t){bool res=s<t;s=max(s,t);return res;}
// const vector<lint> dx={1,0,-1,0,1,1,-1,-1};
// const vector<lint> dy={0,1,0,-1,1,-1,1,-1};
// #define SUM(v) accumulate(all(v),0LL)
// auto call=[](auto f,auto... args){return f(f,args...);};

// class mint {
//   using u64 = std::uint_fast64_t;
//     public:
//     u64 a;
//     constexpr mint(const u64 x = 0)noexcept:a(x % MOD){}
//     constexpr u64 &value()noexcept{return a;}
//     constexpr const u64 &value() const noexcept {return a;}
//     constexpr mint operator+(const mint rhs)const noexcept{return mint(*this) += rhs;}
//     constexpr mint operator-(const mint rhs)const noexcept{return mint(*this)-=rhs;}
//     constexpr mint operator*(const mint rhs) const noexcept {return mint(*this) *= rhs;}
//     constexpr mint operator/(const mint rhs) const noexcept {return mint(*this) /= rhs;}
//     constexpr mint &operator+=(const mint rhs) noexcept {
//         a += rhs.a;
//         if (a >= MOD)a -= MOD;
//         return *this;
//     }
//     constexpr mint &operator-=(const mint rhs) noexcept {
//         if (a<rhs.a)a += MOD;
//         a -= rhs.a;
//         return *this;
//     }
//     constexpr mint &operator*=(const mint rhs) noexcept {
//         a = a * rhs.a % MOD;
//         return *this;
//     }
//     constexpr mint operator++(int n) const noexcept {
//         return mint(*this) +=1;
//     }
//     constexpr mint operator--(int n) const noexcept {
//         return mint(*this) -=1;
//     }
//     constexpr mint &operator/=(mint rhs) noexcept {
//         u64 exp=MOD-2;
//         while (exp) {
//             if (exp % 2) {
//                 *this *= rhs;
//             }
//             rhs *= rhs;
//             exp /= 2;
//         }
//         return *this;
//     }
//     mint pow(long long n){
//         long long x=a;
//         mint ret = 1;
//         while(n>0) {
//             if(n&1)(ret*=x);
//             (x*=x)%=MOD;
//             n>>=1;
//         }
//         return ret;
//     }
//     mint inv()const{
//         int _a=a,b=MOD,u=1,v=0,t;
//         while(b>0) {
//             t=_a/b;
//             swap(_a-=t*b,b);
//             swap(u-=t*v,v);
//         }
//         return mint(u);
//     }
//     mint comb(lint b){
//         using lint=long long;
//         static bool init=1;
//         static lint fac[1000001],ifac[1000001];
//         if(init){
//             init=0;
//             fac[0]=1;
//             ifac[0]=1;
//             auto mod_pow=[&](lint x,lint n){
//                 lint ans = 1;
//                 while(n != 0){
//                     if(n&1)ans=ans*x%MOD;
//                     x=x*x%MOD;
//                     n=n>>1;
//                 }
//                 return ans;
//             };
//             for(int i=0;i<1000000;i++){
//                 fac[i+1]=fac[i]*(i+1)%MOD;
//                 ifac[i+1]=ifac[i]*mod_pow(i+1, MOD-2)%MOD;
//             }
//         }
//         if(a==0&&b==0)return 1;
//         if((lint)a<b||a<0)return 0;
//         lint tmp=ifac[a-b]*ifac[b]%MOD;
//         return tmp*fac[a]%MOD;
//     }
    
//     friend ostream& operator<<(ostream& lhs, const mint& rhs) noexcept {
//         lhs << rhs.a;
//         return lhs;
//     }
//     friend istream& operator>>(istream& lhs,mint& rhs) noexcept {
//         lhs >> rhs.a;
//         return lhs;
//     }
// };
// inline mint fact(lint a){return a?fact(a-1)*a:1;}

// int main(){
//     lint n;
//     cin>>n;
//     vec a(n),b(n);
//     rep(i,n){
//         cin>>a[i];
//     }
//     rep(i,n)cin>>b[i];
//     lint ans2=INF;
//     rep(i,1<<n){
//         vector<tuple<lint,lint,lint>> v(n);
//         lint tmp=0;
//         rep(j,n){
//             if(i&(1<<j)){
//                 v[j]=make_tuple(a[j],j,0);
//             }else{
//                 tmp++;
//                 v[j]=make_tuple(b[j],j,1);
//             }
//         }
//         sort(all(v));
//         map<lint,lint>mn;
//         map<lint,lint>mx;
//         rep(i,n){
//             chmin(mn[v[j]],j);
//             chmin(mx[v[j]],j);
//         }
//     }
//     if(ans2==INF){
//         cout<<-1<<endl;
//     }
//     else cout<<ans2/2<<endl;
// }
#pragma GCC optimize("Ofast","unroll-loops")
//#pragma GCC push_options
//#pragma GCC target("sse,sse2,sse3,ssse3,sse4,popcnt,abm,mmx,avx,tune=native")
#include<bits/stdc++.h>
#include <xmmintrin.h>
#include <immintrin.h>
using namespace::std;
__attribute__((constructor))void init(){cin.tie(0);ios::sync_with_stdio(false);cout<<fixed<<setprecision(15);}
#include<ext/pb_ds/assoc_container.hpp>
#include<ext/pb_ds/tree_policy.hpp>
#include <ext/pb_ds/priority_queue.hpp>
#include<ext/pb_ds/tag_and_trait.hpp>
template<typename T>using pbds=__gnu_pbds::tree<T,__gnu_pbds::null_type,less<T>,__gnu_pbds::rb_tree_tag,__gnu_pbds::tree_order_statistics_node_update>;
template<typename T>using pbds_map=__gnu_pbds::tree<T,T,less<T>,__gnu_pbds::rb_tree_tag,__gnu_pbds::tree_order_statistics_node_update>;
template<typename T,typename E>using hash_map=__gnu_pbds::gp_hash_table<T,E>;
template<typename T>using pqueue =__gnu_pbds::priority_queue<T, less<T>,__gnu_pbds::rc_binomial_heap_tag>;
typedef long long lint;
#define INF (1LL<<60)
#define IINF (1<<30)
#define EPS (1e-10)
#define MOD 1000000007LL
typedef vector<lint> vec;
typedef vector<vector<lint>> mat;
typedef vector<string> svec;
typedef vector<vector<string>> smat;
template<typename T>inline void numout(T t){bool f=0;for(auto i:t){cout<<(f?" ":"")<<i<INF/2?i:"INF";f=1;}cout<<endl;}
template<typename T>inline void numout2(T t){for(auto i:t)numout(i);}
template<typename T>inline void output(T t){bool f=0;for(auto i:t){cout<<(f?" ":"")<<i;f=1;}cout<<endl;}
template<typename T>inline void output2(T t){for(auto i:t)output(i);}
template<typename T>inline void _output(T t){bool f=0;for(lint i=0;i<t.size();i++){cout<<f?"":" "<<t[i];f=1;}cout<<endl;}
template<typename T>inline void _output2(T t){for(lint i=0;i<t.size();i++)output(t[i]);}
#define rep(i,n) for(lint i=0;i<lint(n);++i)
#define repi(i,a,b) for(lint i=lint(a);i<(lint)(b);++i)
#define rrep(i,n) for(lint i=lint(n)-1;i>=0;--i)
#define rrepi(i,a,b) for(lint i=lint(b)-1;i>=lint(a);--i)
#define irep(i) for(lint i=0;;++i)
#define all(n) begin(n),end(n)
#define dist(a,b,c,d) sqrt(pow(a-c,2)+pow(b-d,2))
inline lint gcd(lint A,lint B){return B?gcd(B,A%B):A;}
inline lint lcm(lint A,lint B){return A/gcd(A,B)*B;}
inline bool chmin(auto& s,const auto& t){bool res=s>t;s=min(s,t);return res;}
inline bool chmax(auto& s,const auto& t){bool res=s<t;s=max(s,t);return res;}
const vector<lint> dx={1,0,-1,0,1,1,-1,-1};
const vector<lint> dy={0,1,0,-1,1,-1,1,-1};
#define SUM(v) accumulate(all(v),0LL)
auto call=[](auto f,auto... args){return f(f,args...);};

class mint {
  using u64 = std::uint_fast64_t;
    public:
    u64 a;
    constexpr mint(const u64 x = 0)noexcept:a(x % MOD){}
    constexpr u64 &value()noexcept{return a;}
    constexpr const u64 &value() const noexcept {return a;}
    constexpr mint operator+(const mint rhs)const noexcept{return mint(*this) += rhs;}
    constexpr mint operator-(const mint rhs)const noexcept{return mint(*this)-=rhs;}
    constexpr mint operator*(const mint rhs) const noexcept {return mint(*this) *= rhs;}
    constexpr mint operator/(const mint rhs) const noexcept {return mint(*this) /= rhs;}
    constexpr mint &operator+=(const mint rhs) noexcept {
        a += rhs.a;
        if (a >= MOD)a -= MOD;
        return *this;
    }
    constexpr mint &operator-=(const mint rhs) noexcept {
        if (a<rhs.a)a += MOD;
        a -= rhs.a;
        return *this;
    }
    constexpr mint &operator*=(const mint rhs) noexcept {
        a = a * rhs.a % MOD;
        return *this;
    }
    constexpr mint operator++(int n) const noexcept {
        return mint(*this) +=1;
    }
    constexpr mint operator--(int n) const noexcept {
        return mint(*this) -=1;
    }
    constexpr mint &operator/=(mint rhs) noexcept {
        u64 exp=MOD-2;
        while (exp) {
            if (exp % 2) {
                *this *= rhs;
            }
            rhs *= rhs;
            exp /= 2;
        }
        return *this;
    }
    mint pow(long long n){
        long long x=a;
        mint ret = 1;
        while(n>0) {
            if(n&1)(ret*=x);
            (x*=x)%=MOD;
            n>>=1;
        }
        return ret;
    }
    mint inv()const{
        int _a=a,b=MOD,u=1,v=0,t;
        while(b>0) {
            t=_a/b;
            swap(_a-=t*b,b);
            swap(u-=t*v,v);
        }
        return mint(u);
    }
    mint comb(lint b){
        using lint=long long;
        static bool init=1;
        static lint fac[1000001],ifac[1000001];
        if(init){
            init=0;
            fac[0]=1;
            ifac[0]=1;
            auto mod_pow=[&](lint x,lint n){
                lint ans = 1;
                while(n != 0){
                    if(n&1)ans=ans*x%MOD;
                    x=x*x%MOD;
                    n=n>>1;
                }
                return ans;
            };
            for(int i=0;i<1000000;i++){
                fac[i+1]=fac[i]*(i+1)%MOD;
                ifac[i+1]=ifac[i]*mod_pow(i+1, MOD-2)%MOD;
            }
        }
        if(a==0&&b==0)return 1;
        if((lint)a<b||a<0)return 0;
        lint tmp=ifac[a-b]*ifac[b]%MOD;
        return tmp*fac[a]%MOD;
    }
    
    friend ostream& operator<<(ostream& lhs, const mint& rhs) noexcept {
        lhs << rhs.a;
        return lhs;
    }
    friend istream& operator>>(istream& lhs,mint& rhs) noexcept {
        lhs >> rhs.a;
        return lhs;
    }
};
inline mint fact(lint a){return a?fact(a-1)*a:1;}

template<typename T>struct SEG{
    lint n=1;
    vector<T> node;
    T init;
    SEG(lint size,T _init){
        init=_init;
        while(n<size)n*=2;
        node.resize(n*2-1,init);
    }
    void update(lint x,T val){
        x+=(n-1);
        node[x]=func(node[x],val);
        while(x>0){
            x=(x-1)/2;
            node[x]=func(node[x*2+1],node[x*2+2]);
        }
    }
    T get(lint a,lint b,lint k=0,lint l=0,lint r=-1){
        if(r<0)r=n;
        if(r<=a||b<=l)return init;
        if(a<=l&&r<=b)return node[k];
        else{
            T vl=get(a,b,k*2+1,l,(l+r)/2);
            T vr=get(a,b,k*2+2,(l+r)/2,r);
            return func(vl,vr);
        }
    }
    T func(T s,T t){
        return s+t;
    }
};

class UF{
    public:
    vector<int> data;
    int sz;
	public:
    UF(auto sz):sz(sz){data.resize(sz,-1);}
    bool unite(auto x,auto y){
        x=root(x);y=root(y);
        if(x==y)return 0;
        if(data[x]>data[y])swap(x,y);
		data[x]+=data[y];
		data[y]=x;
		sz--;
        return 1;
    }
    inline int root(auto x){return data[x]<0?x:data[x]=root(data[x]);}
    inline bool same(auto x, auto y){return root(x)==root(y);}
    inline int size(){return sz;}
	inline int size(auto x){return -data[root(x)];}
};

int main(){
    lint n,m;
    cin>>n>>m;
    vec a(n);
    vector<pair<lint,lint>> v(n);
    rep(i,n)cin>>a[i];
    rep(i,n){
        v[i]=make_pair(a[i],i);
    }
    sort(all(v));
    mat g(n);
    string ansv;
    rep(i,n)ansv+='#';
    vector<lint>ans(m);
    map<pair<lint,lint>,lint>edge;
    rep(i,m){
        lint s,t;
        cin>>s>>t;
        s--;t--;
        g[s].push_back(t);
        g[t].push_back(s);
        edge[minmax(s,t)]=i;
    }
    if(v[0].first!=v[1].first){
        cout<<-1<<endl;
        return 0;
    }
    ans[edge[minmax(v[0].second,v[1].second)]]=v[0].first;
    ansv[v[0].second]='W';
    ansv[v[1].second]='B';
    priority_queue<pair<lint,lint>,vector<pair<lint,lint>>,greater<pair<lint,lint>>>que;
    for(auto d:g[v[0].second]){
        if(d==v[1].second)continue;
        que.emplace(a[d],d);
    }
    for(auto d:g[v[1].second]){
        if(d==v[0].second)continue;
        que.emplace(a[d],d);
    }
    vector<bool>used(n,0);
    used[v[0].second]=1;
    used[v[1].second]=1;
    while(!que.empty()){
        lint cost,ver;
        tie(cost,ver)=que.top();
        que.pop();
        if(used[ver])continue;
        used[ver]=1;
        bool f=0;
        for(auto d:g[ver]){
            if(used[d]){
                if(!f){
                    if(ansv[d]!='W')ansv[ver]='W';
                    else ansv[ver]='B';
                }
                f=1;
                ans[edge[minmax(d,ver)]]=cost;
            }else{
                que.emplace(a[d],d);
            }
        }
    }
    cout<<ansv<<endl;
    rep(i,m){
        cout<<ans[i]<<endl;
    }
}
