Work on vehicles

I'm starting to understand the type system a bit more, still grappling
with records in haskell a bit.
painting :D