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