let greek_of_int n = match n with 
      | 1 -> "\\alpha"
      | 2 -> "\\beta"
      | 3 -> "\\gamma"
      | 4 -> "\\delta"
      | 5 -> "\\epsilon"
      | 6 -> "\\zeta"
      | 7 -> "\\eta"
      | 8 -> "\\theta"
      | _ -> if (n<=0) then "" else "\\omega"