HHC 2016 RPL Programming Contest

[3298]

Okay, I'm so rusty in UserRPL that I couldn't get anything better than 94.5 bytes, and even for that I had to look at the solutions already posted here to find out that POS is a thing. Earlier iterations used a slow bulky UserRPL loop doing roughly the same...
I'm more experienced in SysRPL, so I'll post that one instead. 40 bytes, checksum #EC76h:

Code:

::
  ZERO OVERLEN$ ONE_DO
    OVER CDR$ DUP4UNROLL
    ROT CAR$ OVERLEN$ POSCHRREV
    #MAX
  LOOP SWAPDROP UNCOERCE
;

For an even better score you could omit the UNCOERCE at the end. This would leave the result as a BINT on the stack, but those are readable at least, even with SysRPL stack display off. That would bring the size to 37.5 bytes, with the checksum #F514h.
Being a SysRPL program it's disqualified of course. But I'd like to see if someone else can squeeze another command out of this.