Import lex.rhope
Import countstring.rhope
Import parse.rhope

Main[args]
{
	[args]Index[1]
	{
		Print[["Parsing "]Append[~]]
		file <- <String@File[~]
		,data <- [file]Get FString[[file]Length]
		tokens <- Lex[Count String[data]]
		Pretty Print[Parse[tokens], ""]
	}{
		Print["Usage: rhope compile.rhope <filename>"]
	}
}