: contains? ( longstr str -- ? ) [ length ] keep swap member? ;