1 2 3 4 5
{ _ /a deff len /l defv [ 1 l 1 add range { l -01 sub a } each ] } /reverse deff [ 3 2 1 ] reverse dump
