pub fn parse_sorting_hat(input: &str) -> IResult<&str, Expression>