<snapdata remixID="15155901"><project name="U8L3-Subsets" app="Snap! 11.0.8, https://snap.berkeley.edu" version="2"><notes></notes><thumbnail>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAAKnElEQVR4Aexda2xUxxU+18aG2CQlSMYFU0umGGgEvxCPH/zAPE0wiJdagZGLUIVa1FBaBElb8aMSRVhEXkNbi5JWTQmocoWKeSkCrCAeAaGiJECIwjsYRIAQEltGMTbY2W+UWe3s0/Hute/e+aw9O3Nm7syZ851PZ/eO796b1cU/ItCHCGQJ/4hAHyJAAvYh+DQtEpOAd+/elUAgIDU1NapEHfJ9dMxBgIlAMgSiCHjs2DFpa2uTefPmyfz581WJ+qfv/kt+cHyzvPTen0MSSy8fP0KNwRzV1dXJ7LPfcgQMAp44cUKKiork6dOn0t7ebpQbf/JYfvZKXlL50eHXQuMqKiosh5fuJ0PAIGBjY6MiXkdHhxw9elSmTp0a0iMnylv3XmRTSMd4EBjlkydPQu2eqnAxnkDAIODw4cNV9kIG7OzsFBCysLBQtUWu1hk0TAZWN0U2Kx3jteTl5ak2vhGBWAgYBJw+fbogayF7TZw4UVpaWuTGjRsqC0YOfrJxjLS+XhzZrHSM1/M4jqPa+EYEYiFgEHDkyJHS3NysCIcMBiLpMvePHwQz3u2k8sUvT4TGDxkyJJZNthGBEAIGAdE6d+5cGT16tFy8eFEuXLigStT37NkT3JYJBLdlakNSUxOtNzQ0CD52kU0xD+akEIF4CEQRMNY2TEX5TMlr3JR0G2bI/+vUFkxBQYEcOHAgnk22E4EQAgYB423D/OV3lVI5Nj/pFsyC4nYZMGCAOmnBx/muXbtChljxDAKeWohBQJz14nsfTiCwDbNq1Sr1fS7Wivsvjr3J/OzZs9CJDL4/xhrLNiKgETAIGLkNU1dXp7KZPliXA5Zuk84HV7VqlCAviAe5du2a0UeFCEQiYBAQJw4gELKg3oaB7vQ39/La/vMb6Tj9z8i5lJ6Tk6OyJsZNmzZNtfGNCMRDwCAgvrfF2oap2vjXpNsvA6tvS8cbH4X2Dc+fPy/l5eXx7LKdCCgEDAKiBdsw2EbB1gvk0qVLcvLkydDWS23ttlA9EKiV2jD97bf/LTge47q6uoLHBYL92LYJqDquqKmtja/v3btXeBUNomCPRBHw+PHj6oKExYsXy6JFi5SgDnFbnzBhguBfgGfPnrUnApZ7ahDwzp07UlJSokgAIiCLodSi9efPnwtIkp2dLVlZWep4fG/U/ZHHa727/UOHDrU8LPa4nxXuan19vYAkkEOHDsnOnTtlxIgRMmPGDFm+fLmqb9myRXCiIcE/bNvcv39fRo0aJZcvX5bc3NzQeMyRigSn58sCBAwC6kyFcs6cObJp0yaV3Y4cOSLYpAbZ1q9fL8OGDZOZM2dKWVmZ4L8eyH5jx44VZC6MTYdYgD1dDCJgEDAyY928eVOuX7+ustqtW7fU1TE4Bu2PHz9WG87YbtHH4MoZ9KdDgmvjywIEDAKGZ66sznZ58W9l8mJdmeTseFU+2/OHtMuX/1ip5oeNgsv1Em7fAuzpYhABg4Dhmau1uVnycx35b+EqkdeOSemKrWmXH/7qHfny1TclP8eR7LM7VabVaxD+WYGAQUBkIBAAJbz/JHukVPx0uZGZ0JdOeeHHE6W+YCXMKTvh9lWjL97oRDwEssI7EHyIbns3Z4qRldDnhpQtqlIm9dxK4ZsVCBgEDM9s8L7/C3kqK2HfD31ulrAHAsIOBDrF/wgYBAQBtMB11EGG3ii1PdiCQKf4H4EoAoJwELiuMx50iJs67MGGFugU/yMQRUBkHwhcRwnRpEAd4oYebg82oFP8j4BBQE0slHAdpZtZL3x+bQ9tEOiUzEcgmQcGAZF5tGAgiKB1lG7qsAcbWqBT/I+AQUAQTAtcRx0ZUIuburYHGxDoFP8jYBAQ2Qcuh5eo94ZE2oVO8T8CBgGReSAgHFxHvbck3J62jzaKvxEwCIjAa4HbvUU+2IE9bRsldIr/EYgiIMgAgesoe0tgD8TT9qBT/I9AFAFBAghcBxlQ1+KmDnvaDkroKQkHZwQCBgFBMC1YPer6DBilm7q2BxsQ6BT/I2AQEJlHC1zXdTfKpUuXypQpU6SpqUldcRNpDzrF/wgYBETm0QLXddZrbW1N+1Uxu3fvFkhRUZHADuxp2yihU/yPgEFAZDq4HF6eOXNGSktL1W+F0Q5yJCtPnz6tCBt+3Jo1a1SmCx8P8u3bt0+1R9qFTvE/AgYBQQ4IiAPXUT937pzglh241Rp0Lbh55ZgxY+TUqVPq55oNDQ2CG5KjHfeVxs859bHbt2+Xmpoa6devnyKmbt+/f7+6nyB0bQ91bR9tFH8jYBAQgdcCt1+RJnEcR/0yrqqqSpEH/SDJggULRD+G4cqVKzJ58mQBCYuLi+XevXty9epVefTokcpuq1evlnXr1qnnj+jxBw8eFNwGBOX9j8/AnDoW/RDVwLeeIJBRYwwC4qMW5ILAi58PvCArVqyQHTt2CH4PjHZ8X0MJ0m3evFkmTZqkiDN48GDZunWr5OfnKzLimEGDBqnvd6jjoTUoMf7w4cOC3x3rsuRWA8ypeXAMRDXwzfcIGARcu3atIgEyUMezDuX8tPd/LS1ffyUV4wrl7vv7Esr/Ar9P2K/Hj3upTR1X2PmFlBz9rYzLfSjSFXx1dSn7Dx8GdWWdb35HwCCg4zjqpuTIQI9avpH21z9Ut2X7+1tvyco/1aVd3tj2jpS++bEM3HJbPv9Fo/qIf/DggSxbtszvuNO/7xAwCIg2fFebPXu2zJo1S15+eXAwIyEzuSxBwzjRgV3cgyao8mUJAlEE1H47jqNOQByn90ptm6U9CMQloD0Q0NO+RCCtBOxLR2g7MxEgATMzbr5ZNQnom1BmpiMkYGbGzTerJgF9E8rMdIQEzMy4+WbVJGCcUOI+2HhEbZzuiGaqPUWABIyDHK7owYNzFi5cKJDx48cLn30XB6wUmknABODhYlndjcvMNmzYoMgIQupL0XQ/y54hQAL2DDeOShMCJGACIJHpdDeef4drGpEVIXiQj+5j2XMESMA42OEkZMmSJQKyQfAMFDwRKs7hbO4hAiRgHOBwElJZWRmnl80agVRLEjBVBDk+JQRIwJTg4+BUESABU0WQ41NCgARMCT4OThUBEjBVBDk+JQRIwJTg4+BUEchcAqbqOcd7AgES0BNhsHcRJKC9sfeE5ySgJ8Jg7yJIQHtj7wnPSUBPhMHeRZCAmRd7X62YBPRVODPPGRIw82LmqxWTgL4KZ+Y5QwJmXsx8tWIS0FfhzDxnSMDMi5mvVvy9COgrz+mMJxAgAT0RBnsXQQLaG3tPeE4CeiIM9i6CBLQ39p7wnAT0RBjsXQQJ2K3Y8yC3ECAB3UKW83YLARKwWzDxILcQIAHdQpbzdgsBErBbMPEgtxAgAd1ClvN2CwESsFsw2XuQ256TgG4jzPkTIkACJoSHnW4jQAK6jTDnT4gACZgQHna6jQAJ6DbCnD8hAiRgQnjY6TYC3iWg255zfk8gQAJ6Igz2LoIEtDf2nvCcBPREGOxdBAlob+w94TkJ6Ikw2LsIEtB7sbdqRSSgVeH2nrMkoPdiYtWKSECrwu09Z0lA78XEqhWRgFaF23vOkoDei4lVKzIIaJXndNYTCJCAngiDvYsgAe2NvSc8JwE9EQZ7F0EC2ht7T3j+LQAAAP//o4pI4QAAAAZJREFUAwCAMcZDDOcyEAAAAABJRU5ErkJggg==</thumbnail><scenes select="1"><scene name="U8L3-Subsets"><notes></notes><hidden></hidden><headers></headers><code></code><blocks><block-definition s="nCr %&apos;n&apos; %&apos;r&apos;" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs><input type="%s"></input><input type="%s"></input></inputs><script><block s="doIfElse"><block s="reportVariadicLessThan"><list><block var="n"/><block var="r"/></list></block><script><block s="doReport"><l>0</l></block></script><script><block s="doReport"><block s="reportMonadic"><l><option>floor</option></l><block s="reportQuotient"><custom-block s="%s !"><block var="n"/></custom-block><block s="reportVariadicProduct"><list><custom-block s="%s !"><block var="r"/></custom-block><custom-block s="%s !"><block s="reportDifference"><block var="n"/><block var="r"/></block></custom-block></list></block></block></block></block></script></block></script></block-definition><block-definition s="nCr %&apos;n&apos; %&apos;r&apos; recursive" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs><input type="%s"></input><input type="%s"></input></inputs><script><block s="doIfElse"><block s="reportVariadicOr"><list><block s="reportVariadicEquals"><list><block var="r"/><l>0</l></list></block><block s="reportVariadicEquals"><list><block var="r"/><block var="n"/></list></block></list></block><script><block s="doReport"><l>1</l></block></script><script><block s="doReport"><block s="reportVariadicSum"><list><custom-block s="nCr %s %s recursive"><block s="reportDifference"><block var="n"/><l>1</l></block><block s="reportDifference"><block var="r"/><l>1</l></block></custom-block><custom-block s="nCr %s %s recursive"><block s="reportDifference"><block var="n"/><l>1</l></block><block var="r"/></custom-block></list></block></block></script></block></script></block-definition><block-definition s="%&apos;n&apos; !" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs><input type="%s"></input></inputs><script><block s="doReport"><block s="reportCombine"><block s="reportNumbers"><l>1</l><block var="n"/></block><block s="reifyReporter"><autolambda><block s="reportVariadicProduct"><list><l></l><l></l></list></block></autolambda><list></list></block></block></block></script></block-definition><block-definition s="subsets %&apos;set&apos;" type="reporter" category="lists"><header></header><code></code><translations></translations><inputs><input type="%l"></input></inputs><script><block s="doIfElse"><block s="reportListIsEmpty"><block var="set"/></block><script><block s="doReport"><block s="reportNewList"><list><block s="reportNewList"><list></list></block></list></block></block></script><script><block s="doReport"><block s="reportConcatenatedLists"><list><custom-block s="subsets %l"><block s="reportCDR"><block var="set"/></block></custom-block><block s="reportMap"><block s="reifyReporter"><autolambda><block s="reportCONS"><block s="reportListItem"><l>1</l><block var="set"/></block><l/></block></autolambda><list></list></block><custom-block s="subsets %l"><block s="reportCDR"><block var="set"/></block></custom-block></block></list></block></block></script></block></script></block-definition></blocks><primitives></primitives><stage name="Stage" width="480" height="360" costume="0" color="255,255,255,1" tempo="60" threadsafe="false" penlog="false" volume="100" pan="0" lines="round" ternary="false" hyperops="true" codify="false" inheritance="true" sublistIDs="false" id="158"><pentrails>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAeAAAAFoCAYAAACPNyggAAAQAElEQVR4AezVC27kNhAEUCP3P3SC/NZeez6SSDWb9YJg1zsjkV2vDdQfH/4jQIAAAQIEbhdQwLeTu5AAAQIECHx8ZBew3wACBAgQIFAkoICL4F1LgAABAtkCCjh3/5ITIECAQKGAAi7EdzUBAgQI5Aoo4NzdZyeXngABAsUCCrh4Aa4nQIAAgUwBBZy5d6mzBaQnQGABAQW8wBKMQIAAAQJ5Ago4b+cSE8gWkJ7AIgIKeJFFGIMAAQIEsgQUcNa+pSVAIFtA+oUEFPBCyzAKAQIECOQIKOCcXUtKgACBbIHF0ivgxRZiHAIECBDIEFDAGXuWkgABAgQWE7i5gBdLbxwCBAgQIFAkoICL4F1LgAABAtkCCvjG/buKAAECBAj8J6CA/5PwNwECBAgQuFFAAd+InX2V9AQIECDwWUABf9bwMwECBAgQuElAAd8E7ZpsAekJECDwu4AC/l3EvwkQIECAwA0CCvgGZFcQyBaQngCBnwQU8E8qPiNAgAABApMFFPBkYMcTIJAtID2BRwIK+JGMzwkQIECAwEQBBTwR19EECBDIFpD+mYACfqbjOwIECBAgMElAAU+CdSwBAgQIZAu8Sq+AXwn5ngABAgQITBBQwBNQHUmAAAECBF4J7F3Ar9L7ngABAgQIFAko4CJ41xIgQIBAtoAC3nf/khEgQIDAwgIKeOHlGI0AAQIE9hVQwPvuNjuZ9AQIEFhcQAEvviDjESBAgMCeAgp4z71KlS0gPQECDQQUcIMlGZEAAQIE9hNQwPvtVCIC2QLSE2gioICbLMqYBAgQILCXgALea5/SECCQLSB9IwEF3GhZRiVAgACBfQQU8D67lIQAAQLZAs3SK+BmCzMuAQIECOwhoID32KMUBAgQINBMYHABN0tvXAIECBAgUCSggIvgXUuAAAEC2QIKeOD+HUWAAAECBN4VUMDvSnmOAAECBAgMFFDAAzGzj5KeAAECBI4IKOAjWp4lQIAAAQKDBBTwIEjHZAtIT4AAgaMCCviomOcJECBAgMAAAQU8ANERBLIFpCdA4IyAAj6j5h0CBAgQIHBRQAFfBPQ6AQLZAtITOCuggM/KeY8AAQIECFwQUMAX8LxKgACBbAHprwgo4Ct63iVAgAABAicFFPBJOK8RIECAQLbA1fQK+Kqg9wkQIECAwAkBBXwCzSsECBAgQOCqQO8Cvpre+wQIECBAoEhAARfBu5YAAQIEsgUUcN/9m5wAAQIEGgso4MbLMzoBAgQI9BVQwH13lz259AQIEGguoICbL9D4BAgQINBTQAH33JupswWkJ0BgAwEFvMESRSBAgACBfgIKuN/OTEwgW0B6ApsIKOBNFikGAQIECPQSUMC99mVaAgSyBaTfSEABb7RMUQgQIECgj4AC7rMrkxIgQCBbYLP0CnizhYpDgAABAj0EFHCPPZmSAAECBDYTOFjAm6UXhwABAgQIFAko4CJ41xIgQIBAtoACPrB/jxIgQIAAgVECCniUpHMIECBAgMABAQV8ACv7UekJECBAYKSAAh6p6SwCBAgQIPCmgAJ+E8pj2QLSEyBAYLSAAh4t6jwCBAgQIPCGgAJ+A8kjBLIFpCdAYIaAAp6h6kwCBAgQIPBCQAG/API1AQLZAtITmCWggGfJOpcAAQIECDwRUMBPcHxFgACBbAHpZwoo4Jm6ziZAgAABAg8EFPADGB8TIECAQLbA7PQKeLaw8wkQIECAwA8CCvgHFB8RIECAAIHZAmsX8Oz0zidAgAABAkUCCrgI3rUECBAgkC2ggNfdv8kIECBAYGMBBbzxckUjQIAAgXUFFPC6u8meTHoCBAhsLqCAN1+weAQIECCwpoACXnMvpsoWkJ4AgQABBRywZBEJECBAYD0BBbzeTkxEIFtAegIhAgo4ZNFiEiBAgMBaAgp4rX2YhgCBbAHpgwQUcNCyRSVAgACBdQQU8Dq7MAkBAgSyBcLSK+CwhYtLgAABAmsIKOA19mAKAgQIEAgT+K2Aw9KLS4AAAQIEigQUcBG8awkQIEAgW0ABf9q/HwkQIECAwF0CCvguafcQIECAAIFPAgr4E0b2j9ITIECAwJ0CCvhObXcRIECAAIF/BRTwvxD+yhaQngABAncLKOC7xd1HgAABAgT+ElDAfyH4n0C2gPQECFQIKOAKdXcSIECAQLyAAo7/FQBAIFtAegJVAgq4St69BAgQIBAtoICj1y88AQLZAtJXCijgSn13EyBAgECsgAKOXb3gBAgQyBaoTq+AqzfgfgIECBCIFFDAkWsXmgABAgSqBWoLuDq9+wkQIECAQJGAAi6Cdy0BAgQIZAso4Lr9u5kAAQIEggUUcPDyRSdAgACBOgEFXGeffbP0BAgQCBdQwOG/AOITIECAQI2AAq5xd2u2gPQECBD4UMB+CQgQIECAQIGAAi5AdyWBaAHhCRD4W0AB/83gDwIECBAgcK+AAr7X220ECGQLSE/gfwEF/D+FHwgQIECAwH0CCvg+azcRIEAgW0D6LwIK+AuHfxAgQIAAgXsEFPA9zm4hQIAAgWyBb+kV8DcSHxAgQIAAgfkCCni+sRsIECBAgMA3gagC/pbeBwQIECBAoEhAARfBu5YAAQIEsgUUcMz+BSVAgACBlQQU8ErbMAsBAgQIxAgo4JhVZweVngABAqsJKODVNmIeAgQIEIgQUMARaxYyW0B6AgRWFFDAK27FTAQIECCwvYAC3n7FAhLIFpCewKoCCnjVzZiLAAECBLYWUMBbr1c4AgSyBaRfWUABr7wdsxEgQIDAtgIKeNvVCkaAAIFsgdXTK+DVN2Q+AgQIENhSQAFvuVahCBAgQGB1gbkFvHp68xEgQIAAgSIBBVwE71oCBAgQyBZQwPP272QCBAgQIPBQQAE/pPEFAQIECBCYJ6CA59lmnyw9AQIECDwVUMBPeXxJgAABAgTmCCjgOa5OzRaQngABAi8FFPBLIg8QIECAAIHxAgp4vKkTCWQLSE+AwFsCCvgtJg8RIECAAIGxAgp4rKfTCBDIFpCewNsCCvhtKg8SIECAAIFxAgp4nKWTCBAgkC0g/SEBBXyIy8MECBAgQGCMgAIe4+gUAgQIEMgWOJxeAR8m8wIBAgQIELguoICvGzqBAAECBAgcFtiqgA+n9wIBAgQIECgSUMBF8K4lQIAAgWwBBbzN/gUhQIAAgU4CCrjTtsxKgAABAtsIKOBtVpkdRHoCBAh0E1DA3TZmXgIECBDYQkABb7FGIbIFpCdAoKOAAu64NTMTIECAQHsBBdx+hQIQyBaQnkBXAQXcdXPmJkCAAIHWAgq49foMT4BAtoD0nQUUcOftmZ0AAQIE2goo4LarMzgBAgSyBbqnV8DdN2h+AgQIEGgpoIBbrs3QBAgQINBd4FoBd09vfgIECBAgUCSggIvgXUuAAAEC2QIK+Pz+vUmAAAECBE4LKODTdF4kQIAAAQLnBRTwebvsN6UnQIAAgUsCCvgSn5cJECBAgMA5AQV8zs1b2QLSEyBA4LKAAr5M6AACBAgQIHBcQAEfN/MGgWwB6QkQGCKggIcwOoQAAQIECBwTUMDHvDxNgEC2gPQEhgko4GGUDiJAgAABAu8LKOD3rTxJgACBbAHphwoo4KGcDiNAgAABAu8JKOD3nDxFgAABAtkCw9Mr4OGkDiRAgAABAq8FFPBrI08QIECAAIHhAq0KeHh6BxIgQIAAgSIBBVwE71oCBAgQyBZQwG32b1ACBAgQ2ElAAe+0TVkIECBAoI2AAm6zquxBpSdAgMBuAgp4t43KQ4AAAQItBBRwizUZMltAegIEdhRQwDtuVSYCBAgQWF5AAS+/IgMSyBaQnsCuAgp4183KRYAAAQJLCyjgpddjOAIEsgWk31lAAe+8XdkIECBAYFkBBbzsagxGgACBbIHd0yvg3TcsHwECBAgsKaCAl1yLoQgQIEBgd4HnBbx7evkIECBAgECRgAIugnctAQIECGQLKODH+/cNAQIECBCYJqCAp9E6mAABAgQIPBZQwI9tsr+RngABAgSmCijgqbwOJ0CAAAECPwso4J9dfJotID0BAgSmCyjg6cQuIECAAAEC3wUU8HcTnxDIFpCeAIFbBBTwLcwuIUCAAAECXwUU8FcP/yJAIFtAegK3CSjg26hdRIAAAQIEfgko4F8WfiJAgEC2gPS3CijgW7ldRoAAAQIE/hFQwP84+JMAAQIEsgVuT6+Abyd3IQECBAgQ+PhQwH4LCBAgQIBAgcBSBVyQ35UECBAgQKBEQAGXsLuUAAECBNIFFPAyvwEGIUCAAIEkAQWctG1ZCRAgQGAZAQW8zCqyB5GeAAECaQIKOG3j8hIgQIDAEgIKeIk1GCJbQHoCBBIFFHDi1mUmQIAAgXIBBVy+AgMQyBaQnkCqgAJO3bzcBAgQIFAqoIBL+V1OgEC2gPTJAgo4efuyEyBAgECZgAIuo3cxAQIEsgXS0yvg9N8A+QkQIECgREABl7C7lAABAgSyBT4+FHD6b4D8BAgQIFAioIBL2F1KgAABAukCyQWcvnv5CRAgQKBQQAEX4ruaAAECBHIFFHDq7uUmQIAAgVIBBVzK73ICBAgQSBVQwKmbz84tPQECBMoFFHD5CgxAgAABAokCCjhx6zJnC0hPgMASAgp4iTUYggABAgTSBBRw2sblJZAtID2BZQQU8DKrMAgBAgQIJAko4KRty0qAQLaA9EsJKOCl1mEYAgQIEEgRUMApm5aTAAEC2QLLpVfAy63EQAQIECCQIKCAE7YsIwECBAgsJ3BrAS+X3kAECBAgQKBIQAEXwbuWAAECBLIFFPBt+3cRAQIECBD4JaCAf1n4iQABAgQI3CaggG+jzr5IegIECBD4KqCAv3r4FwECBAgQuEVAAd/C7JJsAekJECDwXUABfzfxCQECBAgQmC6ggKcTu4BAtoD0BAj8LKCAf3bxKQECBAgQmCqggKfyOpwAgWwB6Qk8FlDAj218Q4AAAQIEpgko4Gm0DiZAgEC2gPTPBRTwcx/fEiBAgACBKQIKeAqrQwkQIEAgW+B1egX82sgTBAgQIEBguIACHk7qQAIECBAg8Fpg5wJ+nd4TBAgQIECgSEABF8G7lgABAgSyBRTwrvuXiwABAgSWFlDAS6/HcAQIECCwq4AC3nWz2bmkJ0CAwPICCnj5FRmQAAECBHYUUMA7blWmbAHpCRBoIaCAW6zJkAQIECCwm4AC3m2j8hDIFpCeQBsBBdxmVQYlQIAAgZ0EFPBO25SFAIFsAelbCSjgVusyLAECBAjsIqCAd9mkHAQIEMgWaJdeAbdbmYEJECBAYAcBBbzDFmUgQIAAgXYCQwu4XXoDEyBAgACBIgEFXATvWgIECBDIFlDAw/bvIAIECBAg8L6AAn7fypMECBAgQGCYgAIeRpl9kPQECBAgcExAAR/z8jQBAgQIEBgioICHMDokW0B6AgQIHBdQwMfNvEGAAAECBC4LKODLhA4gkC0gPQECv+uE6gAAAkNJREFU5wQU8Dk3bxEgQIAAgUsCCvgSn5cJEMgWkJ7AeQEFfN7OmwQIECBA4LSAAj5N50UCBAhkC0h/TUABX/PzNgECBAgQOCWggE+xeYkAAQIEsgWup1fA1w2dQIAAAQIEDgso4MNkXiBAgAABAtcFOhfw9fROIECAAAECRQIKuAjetQQIECCQLaCAu+7f3AQIECDQWkABt16f4QkQIECgq4AC7rq57LmlJ0CAQHsBBdx+hQIQIECAQEcBBdxxa2bOFpCeAIEtBBTwFmsUggABAgS6CSjgbhszL4FsAekJbCOggLdZpSAECBAg0ElAAXfallkJEMgWkH4rAQW81TqFIUCAAIEuAgq4y6bMSYAAgWyB7dIr4O1WKhABAgQIdBBQwB22ZEYCBAgQ2E7gUAFvl14gAgQIECBQJKCAi+BdS4AAAQLZAgr47f17kAABAgQIjBNQwOMsnUSAAAECBN4WUMBvU2U/KD0BAgQIjBVQwGM9nUaAAAECBN4SUMBvMXkoW0B6AgQIjBdQwONNnUiAAAECBF4KKOCXRB4gkC0gPQECcwQU8BxXpxIgQIAAgacCCvgpjy8JEMgWkJ7APAEFPM/WyQQIECBA4KGAAn5I4wsCBAhkC0g/V0ABz/V1OgECBAgQ+FFAAf/I4kMCBAgQyBaYn14Bzzd2AwECBAgQ+CaggL+R+IAAAQIECMwXWLmA56d3AwECBAgQKBJQwEXwriVAgACBbAEFvOr+zUWAAAECWwso4K3XKxwBAgQIrCrwJwAAAP//lVwoVAAAAAZJREFUAwDU5ALRcl29HAAAAABJRU5ErkJggg==</pentrails><costumes><list struct="atomic" id="159"></list></costumes><sounds><list struct="atomic" id="160"></list></sounds><variables></variables><blocks></blocks><scripts></scripts><sprites select="1"><sprite name="Sprite" idx="1" x="0" y="0" heading="90" scale="1" volume="100" pan="0" rotation="1" draggable="true" costume="0" color="80,80,80,1" pen="tip" id="165"><costumes><list struct="atomic" id="166"></list></costumes><sounds><list struct="atomic" id="167"></list></sounds><blocks></blocks><variables></variables><scripts><script x="566" y="149.33333333333334"><block s="receiveGo"></block><block s="doSetVar"><l>wordlist</l><block s="reportNewList"><list><l></l></list></block></block><block s="doAsk"><l>What service would you like: combinations, subsets, or factorial?</l></block><block s="doIf"><block s="reportVariadicEquals"><list><block s="getLastAnswer"></block><l>combinations</l></list></block><script><block s="doAsk"><l>Enter n</l></block><block s="doSetVar"><l>n</l><block s="getLastAnswer"></block></block><block s="doAsk"><l>Enter r</l></block><block s="doSetVar"><l>r</l><block s="getLastAnswer"></block></block><block s="bubble"><custom-block s="nCr %s %s recursive"><block var="n"/><block var="r"/></custom-block></block></script><list></list></block><block s="doIf"><block s="reportVariadicEquals"><list><block s="getLastAnswer"></block><l>subsets</l></list></block><script><block s="doUntil"><block s="reportVariadicEquals"><list><block s="getLastAnswer"></block><l>STOP</l></list></block><script><block s="doAsk"><l>Enter an element</l></block><block s="doAddToList"><block s="getLastAnswer"></block><block var="wordlist"/></block></script></block><block s="bubble"><custom-block s="subsets %l"><block var="wordlist"/></custom-block></block></script><list></list></block><block s="doIf"><block s="reportVariadicEquals"><list><block s="getLastAnswer"></block><l>factorial</l></list></block><script><block s="doAsk"><l>Enter a number</l></block><block s="bubble"><custom-block s="%s !"><block s="getLastAnswer"></block></custom-block></block></script><list></list></block></script></scripts></sprite><watcher var="n" style="normal" x="10" y="10" color="243,118,29"/><watcher var="r" style="normal" x="10" y="31.000001999999995" color="243,118,29"/><watcher var="wordlist" style="normal" x="10" y="52.00000399999999" color="243,118,29" extX="80" extY="70"/></sprites></stage><variables><variable name="n"><l>6</l></variable><variable name="r"><l>3</l></variable><variable name="wordlist"><list struct="atomic" id="265"></list></variable></variables></scene></scenes></project><media name="U8L3-Subsets" app="Snap! 11.0.8, https://snap.berkeley.edu" version="2"></media></snapdata>