let
spacecount s =
let
spaces =
List
.map spacecounter (explode s)
in
List
.fold_left (+) 0 spaces