Added RSingle(Nil) code and test