fact: Fixpoint total_stack_length s := match s with | _ :: s' => S (total_stack_length s') | _ ::: s' => S (total_stack_length s') | _ => O end.
imports: QuickChick(QuickChick) List ZArith QuickChick.ifcbasic(Machine Generation) Coq.Strings.String