Define IN?; minor fix to READ-FROM-STRING