- type disk = {uname : string, (* UNIX username *)
- blocks : int, (* Number of disk blocks used *)
- files : int} (* Number of files used *)
+ val getWebbwUser : {user : string, last : int} -> {total : int,
+ vhosts : {host : host, size : int} list}
+
+ type disk = {uname : string, (* UNIX username *)
+ kbs : int} (* Number of kilobytes space used *)