REBOL[]while[a: input][b: ask""for i 1 7 1[c:" "if(pick a i)= #"1"[c:"-"]if(pick b i)= #"1"[c:"_"]prin c]print""]