Question: plotting interval results form a solve command

input -->

restart; with(plots);
H := 11;
B := x; W := x;
t__E := (13100*(B*B)*H*(.23-.10)*1.2)/(1500*alpha);
A__t := 2*B*W+2*H*(B+W);
OF := alpha/A__t;
for alpha from .1 by .1 to 2 do XX[alpha] := solve({0 < x, OF < 0.6951871658e-2, t__E < 200}, x) end do

result-->

         XX[0.1] := {0.3222041888 < x, x < 1.155224359}
         XX[0.2] := {0.6354894776 < x, x < 1.633733956}
         XX[0.3] := {0.9405579047 < x, x < 2.000907284}
         XX[0.4] := {1.238023973 < x, x < 2.310448718}
         XX[0.5] := {1.528429210 < x, x < 2.583160196}
         XX[0.6] := {1.812253750 < x, x < 2.829710218}
         XX[0.7] := {2.089925662 < x, x < 3.056436363}
         XX[0.8] := {2.361828525 < x, x < 3.267467912}
         XX[0.9] := {2.628307644 < x, x < 3.465673077}
         XX[1.0] := {2.889675191 < x, x < 3.653140182}
         XX[1.1] := {3.146214498 < x, x < 3.831445747}
         XX[1.2] := {3.398183646 < x, x < 4.001814567}
         XX[1.3] := {3.645818516 < x, x < 4.165220660}
         XX[1.4] := {3.889335368 < x, x < 4.322453755}
         XX[1.5] := {4.128933055 < x, x < 4.474164703}
         XX[1.6] := {4.364794925 < x, x < 4.620897435}
         XX[1.7] := {4.597090458 < x, x < 4.763112053}
         XX[1.8] := {4.825976698 < x, x < 4.901201868}
 

question -->

anyone knows a simple way how I can plot the points of the lower boundaries and upper boundaries of x as two line graphs (without copy pasting all the values into separate lists and then using the listplot command)?

thanks