 : chance ( fraction -- ? ) 0 1 2random > ;
 
 : percent-chance ( percent -- ? ) 100 / chance ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: at-fraction ( seq fraction -- val ) over length 1- * nth-at ;
+
+: at-fraction-of ( fraction seq -- val ) swap at-fraction ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 


! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

VAR: slate

VAR: loop-flag


       combinators
       combinators.lib
       combinators.cleave
       rewrite-closures fry accessors newfx
       processing.color
       processing.gadget ;
       
