on stripLeadingWhitespace(_str)
set stripCharList to {space, tab}
set {oldTIDS, AppleScript's text item delimiters} to {AppleScript's text item delimiters, ""}
considering case
repeat with i in (get text items of _str)
if i is not in stripCharList then
set AppleScript's text item delimiters to (contents of i)
set _str to i & (text items 2 thru -1 of _str) as text
exit repeat
end if
end repeat
end considering
set AppleScript's text item delimiters to oldTIDS
return _str
end stripLeadingWhitespace
set _str to " What are you looking for? Speed?"
set _str to stripLeadingWhitespace(_str)