let rec oneLineAux :int -> string = function
|0 -> ""
|n -> " " + oneLineAux (n-1)

let rec indentAux :int*int -> string = function
    |n,0 -> ""
    |n,i -> (oneLineAux n) + (indentAux n (i-1))