Test.

Added a test for straight. This one is slightly diferent
from the others. It will produce a score directly from the
straight-p function (more or less).
Implementation.

Added an implementation for straight. Simpler than the other
ones. Hopefully I'll get a few more of these.