Haskell, SDL, Lens => Shooting