(* main.sml
 *
 * Sample code for CMSC 32102 Project-1
 *)

structure Main : sig

    val main : (string * string list) -> OS.Process.status

    val doit : unit -> unit

    val vsh : unit -> unit

  end = struct

    fun vsh () = (* YOUR CODE HERE *)

    fun doit () = RunCML.doit (vsh, NONE)

    fun main (cmd, args) = (vsh(); OS.Process.success)

  end
