def IsQuestion( message as string ) as bool:
  strlist = self.Tokenize(message)
  if( strlist.Length < 2 ): 
    return false
		
  word = strlist.GetValue(0) as string
  word = word.ToLower()
  if( word == "whats" or word == "what's" or word == "wats" ): 
    return true
		
  if( word == "what" or word == "wat" ):
    word = strlist.GetValue(1) as string
    word = word.ToLower()
    if( word == "is" or word == "are" ):
    return true
		
  return false

def IndexOfSubject( strings as (string) ) as int:
  i = 0
  while( i < strings.Length ):
  tstr = strings.GetValue(i) as string
  tstr = tstr.ToLower()
  j = 0
  if( tstr.Length < 2 ):
    return -1
  if( tstr.Substring(0,2) == "wh" or tstr.Substring(0,2) == "wa" ):
    j = 1
    if( (i+j) == strings.Length ):
      return -1
    tstr = strings.GetValue(i+j) as string
    tstr = tstr.ToLower()
    if( tstr == "is" ):
      if( (i+j+1) == strings.Length ):
        return -1
    tstr = strings.GetValue(i+j+1) as string
    tstr = tstr.ToLower()
    if( tstr == "a" or tstr == "an" or tstr == "the" or tstr == "teh" ):
      if( (i+j+2) == strings.Length ):
        return -1
    return i+j+2;
					
    if( tstr == "a" or tstr == "an" or tstr == "the" or tstr == "teh" ):
      if( (i+j+1) == strings.Length ):
        return -1
      return i+j+1;	
													
    return (i+j)
  return -1

	def IsQuestion( message as string ) as bool:		# Based on the idea that a question is "* wh* [is [the]] %s"		strlist = self.Tokenize(message)				i = 0		while( i < (strlist.Length -1) ): #-1 because we need more that "whats"			word = strlist.GetValue(i) as string			word = word.ToLower()			if( word.Length < 2 ):				i++				continue # what and variants ALLWAYS have more than 2 chars			if( word.Substring(0,2) == "wh" or word.Substring(0,2) == "wa" ):				if( (i+1) < word.Length): #make sure there is space for subject					return true # it still may not be question but IndexOfSubject will return -1 if so				else: 					return false			i++		return false

	def IndexOfSubject( strings as (string) ) as int:		# Based on the idea that a question is "* wh* [is [the]] %s"		i = 0		while( i < (strings.Length -1) ): #-1 because we need more that "whats"			word = strings.GetValue(i) as string			word = word.ToLower()			if( word.Length < 2 ):				i++				continue # what and variants ALLWAYS have more than 2 chars			if( word.Substring(0,2) == "wh" or word.Substring(0,2) == "wh" ):													j = 1				while( (i+j) != word.Length and j < 4): #make sure there is space for subject														word = strings.GetValue(i+j) as string					word = word.ToLower()										if( IsRestrictedWord( word ) or word == "" ):						break										return (i+j)					j++			i++