print map{if(s/\?$/? /){print STDERR;(<>=~/.*/g)[0]}@z=split/\|/;$z[rand@z]}
map{split/\[(.+?)\]/}<>