+++ /dev/null
-module test
-
-import StdEnv
-import System.FilePath
-import Text
-import Text.GenPrint
-
-Start = join "\n" (map printToString
- [splitExtension "a"
- ,splitExtension "/a"
- ,splitExtension "a.out"
- ,splitExtension "/a.out"
- ,splitExtension "a/b"
- ,splitExtension "/a/b"
- ,splitExtension "a/b.out"
- ,splitExtension "/a/b.out"
- ,splitExtension "a/b.c/d"
- ,splitExtension "/a/b.c/d"
- ,splitExtension "a/b.c/d.out"
- ,splitExtension "/a/b.c/d.out"
- ,splitExtension ""
- ])