loop macro my-take-while
my-drop-while with recur