to forevertest forever [ pr repcount waitMS 100 if keyp [stop] ] end