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