Add expand path

You can use "Base.expandPath : string -> string".
For example,
```sml
# Base.expandPath "~/fuga.sml"
val it = "/home/hoge/fuga.sml" : string
```