typearr=recordtoward,next,cap,from:longint;end;
constmaxm=200000;maxn=10000;
varedge:array[0..maxm]of arr;first,cur,d,p,gap:array[0..maxn]of longint;chose1,chose2:array[0..maxn]of boolean;n,m,s,t,tot,esum:longint;function min(x,y:longint):longint;
beginif x<y then exit(x);exit(y);
end;procedure add(j,k,l:longint);
begininc(esum);edge[esum].from:=j;edge[esum].toward:=k;edge[esum].next:=first[j];first[j]:=esum;edge[esum].cap:=l;
end;procedure addedge(j,k,l:longint);
beginadd(j,k,l);add(k,j,0);
end;function sap(x,flow:longint):longint;
varnow,more,i,too:longint;
beginif x=t then exit(flow);now:=0;i:=cur[x];while i>=0 do begintoo:=edge[i].toward;if (d[x]=d[too]+1) and (edge[i].cap>0) then beginmore:=sap(too,min(flow-now,edge[i].cap));dec(edge[i].cap,more);inc(edge[i xor 1].cap,more);inc(now,more);cur[x]:=i;if now=flow then exit(flow);end;i:=edge[i].next;end;dec(gap[d[x]]);if gap[d[x]]=0 then d[s]:=n;inc(d[x]);inc(gap[d[x]]);cur[x]:=first[x];exit(now);
end;procedure maxflow;
vari:longint;
beginfillchar(d,sizeof(d),0);fillchar(gap,sizeof(gap),0);gap[0]:=n;for i:=1 to n do cur[i]:=first[i];while d[s]<n do sap(s,maxlongint);
end;procedure into;
vari,j,k,l:longint;
beginesum:=-1;fillchar(first,sizeof(first),255);readln(n,m,s,t);for i:=1 to m do beginreadln(j,k,l);addedge(j,k,l);end;
end;procedure work;
varhead,tail,x,y,i,j,too:longint;
beginmaxflow;{ for i:=0 to m<<1 dowriteln(edge[i].from,' ',edge[i].toward,' ',edge[i].next,' ',edge[i].cap); }head:=1;tail:=1;p[1]:=s;fillchar(chose1,sizeof(chose1),false);chose1[s]:=true;while head<=tail do beginx:=p[head];i:=first[x];while i>=0 do begintoo:=edge[i].toward;if (edge[i].cap>0) and (not chose1[too]) then begininc(tail);p[tail]:=too;chose1[too]:=true;end;i:=edge[i].next;end;inc(head);end;//for i:=1 to n do writeln(i,' ',chose1[i]);head:=1;tail:=1;p[1]:=t;fillchar(chose2,sizeof(chose2),false);chose2[t]:=true;while head<=tail do beginx:=p[head];i:=first[x];while i>=0 do begintoo:=edge[i].toward;if (edge[i xor 1].cap>0) and (not chose2[too]) then begininc(tail);p[tail]:=too;chose2[too]:=true;end;i:=edge[i].next;end;inc(head);end;//for i:=1 to n do writeln(i,' ',chose2[i]);for i:=1 to m do beginj:=(i-1)<<1;if edge[j].cap>0 then beginwriteln(0,' ',0);continue;end;x:=edge[j].from;y:=edge[j].toward;if not ( (chose1[x] and chose1[y]) or (chose2[x] and chose2[y]) )then write(1) else write(0);write(' ');if (chose1[x] and chose2[y]) or (chose1[y] and chose2[x])then writeln(1) else writeln(0);end;readln;
end;begininto;work;
end.