Fixes no match in record selector; simulates OnTree.sumTreeI :: IntTree -> Int correctly; Closes #19