blob: 78b094115156b318993fe9833d83d88bf06dbab9 [file]
increment : U8 -> U8;
increment x = (x : U8) + (1 : U8) : U8;
sumTo : U32 -> U32;
sumTo n = ((n : U32) * ((n : U32) - (1 : U32) : U32) : U32) / (2 : U32) : U32;