Some refactorings.

I'm not completely sure how `randomR` is supposed to work, so I didn't implement it for `Ship`.

> `-- I want the last two arguments to be Ints between a & b (or some specifiable range), but it seems like a & b are some other kind of type?`

`a` and `b` there have type `Ship`.