Can I replace repeated calls to `.map` with some use of `Applicative`

Question

I have the following code:

type AScale = { head: [1]; tail: B } | { head: [1, 1]; tail: B };
type BScale =
  |