#!/usr/bin/env zsh

for ((i = 1 ; i < 10 ; i++)) ; do
  echo "class ['a] c (a : 'a) = object" > m_$i.ml
  echo "  method m_1 = (new M_$((i-1)).c) a#foo" >> m_$i.ml
  echo "  method m_2 = (new M_$((i-1)).c) a#foo" >> m_$i.ml
  echo "  method m_3 = (new M_$((i-1)).c) a#foo" >> m_$i.ml
  echo "  method m_4 = (new M_$((i-1)).c) a#foo" >> m_$i.ml
  echo "end" >> m_$i.ml
done

echo "class ['a] c (a : 'a) = object method m_1 = a#foo method m_2 = a#foo end" > m_0.ml