Flocking algorithm implemented in scheme