xschm current_season/"Scheme calculating current season": 
      [month, day] ==> [season].