sig val abspath : ?startdir:string -> string -> string val getfirstline : string -> string val getlines : string -> string list end