procgen  Diff

Differences From Artifact [3931f272bd]:

To Artifact [af1138a642]:


   167    167   				| _ as c, ' ' -> loop (i+1) (acc^^c) false
   168    168   				| c1, c2 -> if not tps && Random.int 3 = 0 then
   169    169   					loop (i+2) ((acc^^c2)^^c1) true
   170    170   				else
   171    171   					loop (i+2) ((acc^^c1)^^c2) tps
   172    172   	in loop 0 "" false
   173    173   	
   174         -let () = Random.self_init(); print_string (scramble (eval top))
          174  +(* let () = Random.self_init(); print_string (scramble (eval top)) *)
          175  +let () = Random.self_init(); print_string(eval top)