let spacecounter = function
    | '\t' -> 8
    | _    -> 1