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

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