if ($bfind(&x,1,votes) > 0) {
    bwrite imdb.txt $bvar(&x, 1, $calc($bfind(&x, 1, votes) - 1)).text
    bunset &x
    sockclose $sockname
    parse.imdb
    return
  }