Add (require 'cl), required to use loop.