fact: Fixpoint paux (m n p q : nat) (s: string) (l : list nat) {struct m}: string := let v := if p %| m then s else ""%string in append v (if m is m1.+1 then let (s1, l1) := print_line n q l in append s1 (String (Ascii.ascii_of_nat 10) (paux m1 n p q s l1)) else ""%string).
imports: mathcomp(all_ssreflect) mathcomp(zify) String