nitc :: lexer $ TCaret :: init_tk

    init init_tk(loc: Location)
    do
		_location = loc
    end