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"