#!perl -p
@l=qw(10 11);$_=$l[rand@l]^$l[rand@l],$_|=y//0/cr
,@l=/1/?(@l,$_):map{$_.~~rand 2}@l for 1..$_;$_="@l"
IyFwZXJsIC1wCkBsPXF3KDEwIDExKTskXz0kbFtyYW5kQGxdXiRsW3JhbmRAbF0sJF98PXkvLzAvY3IsQGw9LzEvPyhAbCwkXyk6bWFweyRfLn5+cmFuZCAyfUBsIGZvciAxLi4kXzskXz0iQGwi