10 [ over 1 <= 
     [ drop ] 
     [ [ [ 1 - ] dip call ] [ [ 2 - ] dip call ] 2bi + ] if
  ] fix call  .