↑ Up

iProver---3.9.4.UNS-CRf.s

View TPTP
Problem
Process solution in
SystemOnTSTP
Download .tgz
%------------------------------------------------------------------------------
% File     : iProver---3.9.4
% Problem  : MGT016-1 : TPTP v9.3.1. Released v2.4.0.
% Transfm  : none
% Format   : tptp:raw
% Command  : run_iprover 300 /export/starexec/sandbox2/benchmark/theBenchmark.p THM

% Computer : n017.cluster.edu
% Model    : x86_64 x86_64
% CPU      : Intel(R) Xeon(R) CPU E5-2620 v4 2.10GHz
% Memory   : 8046.5625MB
% OS       : Linux 6.8.0-71-generic
% CPULimit : 300s
% WCLimit  : 300s
% DateTime : Fri Sep 25 02:12:21 PM UTC 2026

% Result   : Unsatisfiable 1.88s 1.28s
% Output   : CNFRefutation 1.88s
% Verified : 
% SZS Type : Refutation
%            Derivation depth      :   10
%            Number of leaves      :   16
% Syntax   : Number of formulae    :   57 (  35 unt;   0 def)
%            Number of atoms       :  232 (   0 equ)
%            Maximal formula atoms :   13 (   4 avg)
%            Number of connectives :  344 ( 169   ~; 175   |;   0   &)
%                                         (   0 <=>;   0  =>;   0  <=;   0 <~>)
%            Maximal formula depth :   23 (   6 avg)
%            Maximal term depth    :    2 (   1 avg)
%            Number of types       :    1 (   0 usr)
%            Number of type conns  :    0 (   0   >;   0   *;   0   +;   0  <<)
%            Number of predicates  :    8 (   7 usr;   1 prp; 0-3 aty)
%            Number of functors    :   10 (  10 usr;   9 con; 0-2 aty)
%            Number of variables   :   94 (   0 sgn  94   !;   0   ?;  74   :)

% Comments : 
%------------------------------------------------------------------------------
fof(f1,axiom,
    ! [X0,X1] :
      ( inertia(X0,sk1(X1,X0),X1)
      | ~ organization(X0,X1) ),
    file('/export/starexec/sandbox2/benchmark/theBenchmark.p',mp5_1) ).

fof(f2,axiom,
    ! [X2,X3,X0,X1,X8,X6,X7,X4,X5] :
      ( greater(X8,X7)
      | ~ greater(X6,X5)
      | ~ inertia(X2,X8,X3)
      | ~ inertia(X0,X7,X1)
      | ~ complexity(X2,X6,X3)
      | ~ complexity(X0,X5,X1)
      | ~ class(X2,X4,X3)
      | ~ class(X0,X4,X1)
      | ~ organization(X2,X3)
      | ~ organization(X0,X1) ),
    file('/export/starexec/sandbox2/benchmark/theBenchmark.p',a12_FOL_2) ).

fof(f3,axiom,
    ! [X2,X3,X0,X1,X8,X6,X7,X4,X5] :
      ( greater(X5,X3)
      | ~ greater(X8,X7)
      | ~ inertia(X2,X8,X1)
      | ~ inertia(X0,X7,X1)
      | ~ reorganization_type(X2,X6,X1)
      | ~ reorganization_type(X0,X6,X1)
      | ~ reorganization(X2,X1,X3)
      | ~ reorganization(X0,X1,X5)
      | ~ class(X2,X4,X1)
      | ~ class(X0,X4,X1)
      | organization(X2,X3)
      | ~ organization(X2,X1)
      | ~ organization(X0,X1) ),
    file('/export/starexec/sandbox2/benchmark/theBenchmark.p',a14_FOL_3) ).

fof(f4,negated_conjecture,
    organization(sk2,sk8),
    file('/export/starexec/sandbox2/benchmark/theBenchmark.p',t16_FOL_4) ).

fof(f5,negated_conjecture,
    organization(sk3,sk8),
    file('/export/starexec/sandbox2/benchmark/theBenchmark.p',t16_FOL_5) ).

fof(f6,negated_conjecture,
    ~ organization(sk3,sk10),
    file('/export/starexec/sandbox2/benchmark/theBenchmark.p',t16_FOL_6) ).

fof(f7,negated_conjecture,
    class(sk2,sk5,sk8),
    file('/export/starexec/sandbox2/benchmark/theBenchmark.p',t16_FOL_7) ).

fof(f8,negated_conjecture,
    class(sk3,sk5,sk8),
    file('/export/starexec/sandbox2/benchmark/theBenchmark.p',t16_FOL_8) ).

fof(f9,negated_conjecture,
    reorganization(sk2,sk8,sk9),
    file('/export/starexec/sandbox2/benchmark/theBenchmark.p',t16_FOL_9) ).

fof(f10,negated_conjecture,
    reorganization(sk3,sk8,sk10),
    file('/export/starexec/sandbox2/benchmark/theBenchmark.p',t16_FOL_10) ).

fof(f11,negated_conjecture,
    reorganization_type(sk2,sk4,sk8),
    file('/export/starexec/sandbox2/benchmark/theBenchmark.p',t16_FOL_11) ).

fof(f12,negated_conjecture,
    reorganization_type(sk3,sk4,sk8),
    file('/export/starexec/sandbox2/benchmark/theBenchmark.p',t16_FOL_12) ).

fof(f13,negated_conjecture,
    complexity(sk2,sk6,sk8),
    file('/export/starexec/sandbox2/benchmark/theBenchmark.p',t16_FOL_13) ).

fof(f14,negated_conjecture,
    complexity(sk3,sk7,sk8),
    file('/export/starexec/sandbox2/benchmark/theBenchmark.p',t16_FOL_14) ).

fof(f15,negated_conjecture,
    greater(sk7,sk6),
    file('/export/starexec/sandbox2/benchmark/theBenchmark.p',t16_FOL_15) ).

fof(f16,negated_conjecture,
    ~ greater(sk9,sk10),
    file('/export/starexec/sandbox2/benchmark/theBenchmark.p',t16_FOL_16) ).

tcf(c_65,plain,
    ! [X0: $i,X1: $i] :
      ( inertia(X0,sk1(X1,X0),X1)
      | ~ organization(X0,X1) ),
    inference(cnf_transformation,[],[f1]) ).

tcf(c_66,plain,
    ! [X0: $i,X1: $i,X2: $i,X3: $i,X4: $i,X5: $i,X6: $i,X7: $i,X8: $i] :
      ( greater(X4,X1)
      | ~ greater(X8,X7)
      | ~ organization(X3,X5)
      | ~ organization(X0,X2)
      | ~ complexity(X3,X8,X5)
      | ~ complexity(X0,X7,X2)
      | ~ class(X3,X6,X5)
      | ~ class(X0,X6,X2)
      | ~ inertia(X3,X4,X5)
      | ~ inertia(X0,X1,X2) ),
    inference(cnf_transformation,[],[f2]) ).

tcf(c_67,plain,
    ! [X0: $i,X1: $i,X2: $i,X3: $i,X4: $i,X5: $i,X6: $i,X7: $i,X8: $i] :
      ( greater(X6,X7)
      | organization(X3,X7)
      | ~ greater(X4,X1)
      | ~ organization(X3,X2)
      | ~ organization(X0,X2)
      | ~ reorganization_type(X3,X8,X2)
      | ~ reorganization_type(X0,X8,X2)
      | ~ reorganization(X3,X2,X7)
      | ~ reorganization(X0,X2,X6)
      | ~ class(X3,X5,X2)
      | ~ class(X0,X5,X2)
      | ~ inertia(X3,X4,X2)
      | ~ inertia(X0,X1,X2) ),
    inference(cnf_transformation,[],[f3]) ).

tcf(c_68,negated_conjecture,
    organization(sk2,sk8),
    inference(cnf_transformation,[],[f4]) ).

tcf(c_69,negated_conjecture,
    organization(sk3,sk8),
    inference(cnf_transformation,[],[f5]) ).

tcf(c_70,negated_conjecture,
    ~ organization(sk3,sk10),
    inference(cnf_transformation,[],[f6]) ).

tcf(c_71,negated_conjecture,
    class(sk2,sk5,sk8),
    inference(cnf_transformation,[],[f7]) ).

tcf(c_72,negated_conjecture,
    class(sk3,sk5,sk8),
    inference(cnf_transformation,[],[f8]) ).

tcf(c_73,negated_conjecture,
    reorganization(sk2,sk8,sk9),
    inference(cnf_transformation,[],[f9]) ).

tcf(c_74,negated_conjecture,
    reorganization(sk3,sk8,sk10),
    inference(cnf_transformation,[],[f10]) ).

tcf(c_75,negated_conjecture,
    reorganization_type(sk2,sk4,sk8),
    inference(cnf_transformation,[],[f11]) ).

tcf(c_76,negated_conjecture,
    reorganization_type(sk3,sk4,sk8),
    inference(cnf_transformation,[],[f12]) ).

tcf(c_77,negated_conjecture,
    complexity(sk2,sk6,sk8),
    inference(cnf_transformation,[],[f13]) ).

tcf(c_78,negated_conjecture,
    complexity(sk3,sk7,sk8),
    inference(cnf_transformation,[],[f14]) ).

tcf(c_79,negated_conjecture,
    greater(sk7,sk6),
    inference(cnf_transformation,[],[f15]) ).

tcf(c_80,negated_conjecture,
    ~ greater(sk9,sk10),
    inference(cnf_transformation,[],[f16]) ).

tcf(c_159,negated_conjecture,
    greater(sk7,sk6),
    inference(demodulation,[status(thm)],[c_79]) ).

tcf(c_160,negated_conjecture,
    complexity(sk3,sk7,sk8),
    inference(demodulation,[status(thm)],[c_78]) ).

tcf(c_161,negated_conjecture,
    complexity(sk2,sk6,sk8),
    inference(demodulation,[status(thm)],[c_77]) ).

tcf(c_166,negated_conjecture,
    class(sk3,sk5,sk8),
    inference(demodulation,[status(thm)],[c_72]) ).

tcf(c_167,negated_conjecture,
    class(sk2,sk5,sk8),
    inference(demodulation,[status(thm)],[c_71]) ).

tcf(c_169,negated_conjecture,
    organization(sk3,sk8),
    inference(demodulation,[status(thm)],[c_69]) ).

tcf(c_170,negated_conjecture,
    organization(sk2,sk8),
    inference(demodulation,[status(thm)],[c_68]) ).

tcf(c_171,plain,
    ( inertia(sk2,sk1(sk8,sk2),sk8)
    | ~ organization(sk2,sk8) ),
    inference(instantiation,[status(thm)],[c_65]) ).

tcf(c_172,plain,
    ( inertia(sk3,sk1(sk8,sk3),sk8)
    | ~ organization(sk3,sk8) ),
    inference(instantiation,[status(thm)],[c_65]) ).

tcf(c_175,plain,
    ! [X0: $i,X1: $i,X2: $i,X3: $i,X4: $i,X5: $i,X6: $i] :
      ( greater(X6,X3)
      | organization(X0,X3)
      | ~ organization(sk2,sk8)
      | ~ organization(X0,sk8)
      | ~ greater(X1,X5)
      | ~ reorganization_type(sk2,X4,sk8)
      | ~ reorganization(sk2,sk8,X6)
      | ~ class(sk2,X2,sk8)
      | ~ inertia(sk2,X5,sk8)
      | ~ reorganization_type(X0,X4,sk8)
      | ~ reorganization(X0,sk8,X3)
      | ~ class(X0,X2,sk8)
      | ~ inertia(X0,X1,sk8) ),
    inference(instantiation,[status(thm)],[c_67]) ).

tcf(c_182,plain,
    ! [X0: $i,X1: $i,X2: $i,X3: $i,X4: $i,X5: $i] :
      ( organization(sk3,X4)
      | greater(X3,X4)
      | ~ organization(sk3,sk8)
      | ~ organization(sk2,sk8)
      | ~ greater(X1,X0)
      | ~ reorganization_type(sk3,X5,sk8)
      | ~ reorganization_type(sk2,X5,sk8)
      | ~ reorganization(sk3,sk8,X4)
      | ~ reorganization(sk2,sk8,X3)
      | ~ class(sk3,X2,sk8)
      | ~ class(sk2,X2,sk8)
      | ~ inertia(sk3,X1,sk8)
      | ~ inertia(sk2,X0,sk8) ),
    inference(instantiation,[status(thm)],[c_175]) ).

tcf(c_212,plain,
    ! [X0: $i,X1: $i,X2: $i,X3: $i,X4: $i] :
      ( organization(sk3,sk10)
      | greater(X3,sk10)
      | ~ organization(sk3,sk8)
      | ~ organization(sk2,sk8)
      | ~ greater(X1,X0)
      | ~ reorganization(sk3,sk8,sk10)
      | ~ reorganization_type(sk3,X4,sk8)
      | ~ reorganization_type(sk2,X4,sk8)
      | ~ reorganization(sk2,sk8,X3)
      | ~ class(sk3,X2,sk8)
      | ~ class(sk2,X2,sk8)
      | ~ inertia(sk3,X1,sk8)
      | ~ inertia(sk2,X0,sk8) ),
    inference(instantiation,[status(thm)],[c_182]) ).

tcf(c_231,plain,
    ! [X0: $i,X1: $i,X2: $i,X3: $i] :
      ( greater(sk9,sk10)
      | organization(sk3,sk10)
      | ~ organization(sk3,sk8)
      | ~ organization(sk2,sk8)
      | ~ greater(X1,X0)
      | ~ reorganization(sk3,sk8,sk10)
      | ~ reorganization(sk2,sk8,sk9)
      | ~ reorganization_type(sk3,X3,sk8)
      | ~ reorganization_type(sk2,X3,sk8)
      | ~ class(sk3,X2,sk8)
      | ~ class(sk2,X2,sk8)
      | ~ inertia(sk3,X1,sk8)
      | ~ inertia(sk2,X0,sk8) ),
    inference(instantiation,[status(thm)],[c_212]) ).

tcf(c_278,plain,
    ! [X0: $i,X1: $i,X2: $i] :
      ( greater(sk9,sk10)
      | organization(sk3,sk10)
      | ~ organization(sk3,sk8)
      | ~ organization(sk2,sk8)
      | ~ reorganization(sk3,sk8,sk10)
      | ~ reorganization(sk2,sk8,sk9)
      | ~ reorganization_type(sk3,X2,sk8)
      | ~ reorganization_type(sk2,X2,sk8)
      | ~ class(sk3,X1,sk8)
      | ~ class(sk2,X1,sk8)
      | ~ inertia(sk3,X0,sk8)
      | ~ greater(X0,sk1(sk8,sk2))
      | ~ inertia(sk2,sk1(sk8,sk2),sk8) ),
    inference(instantiation,[status(thm)],[c_231]) ).

tcf(c_326,plain,
    ! [X0: $i,X1: $i,X2: $i,X3: $i,X4: $i,X5: $i,X6: $i,X7: $i] :
      ( greater(X1,sk1(X5,X3))
      | ~ greater(X7,X6)
      | ~ organization(X3,X5)
      | ~ organization(X0,X2)
      | ~ complexity(X3,X6,X5)
      | ~ complexity(X0,X7,X2)
      | ~ class(X3,X4,X5)
      | ~ class(X0,X4,X2)
      | ~ inertia(X0,X1,X2) ),
    inference(superposition,[status(thm)],[c_65,c_66]) ).

tcf(c_393,plain,
    ! [X0: $i,X1: $i,X2: $i,X3: $i,X4: $i,X5: $i,X6: $i] :
      ( greater(sk1(X2,X0),sk1(X4,X3))
      | ~ greater(X5,X6)
      | ~ organization(X3,X4)
      | ~ organization(X0,X2)
      | ~ complexity(X3,X6,X4)
      | ~ complexity(X0,X5,X2)
      | ~ class(X3,X1,X4)
      | ~ class(X0,X1,X2) ),
    inference(superposition,[status(thm)],[c_65,c_326]) ).

tcf(c_456,plain,
    ! [X0: $i,X1: $i,X2: $i,X3: $i] :
      ( greater(sk1(X2,X0),sk1(sk8,sk2))
      | ~ organization(sk2,sk8)
      | ~ greater(X3,sk6)
      | ~ organization(X0,X2)
      | ~ class(sk2,X1,sk8)
      | ~ complexity(X0,X3,X2)
      | ~ class(X0,X1,X2) ),
    inference(superposition,[status(thm)],[c_161,c_393]) ).

tcf(c_465,plain,
    ! [X0: $i,X1: $i,X2: $i,X3: $i] :
      ( greater(sk1(X2,X0),sk1(sk8,sk2))
      | ~ greater(X3,sk6)
      | ~ organization(X0,X2)
      | ~ class(sk2,X1,sk8)
      | ~ complexity(X0,X3,X2)
      | ~ class(X0,X1,X2) ),
    inference(forward_subsumption_resolution,[status(thm)],[c_456,c_170]) ).

tcf(c_696,plain,
    ! [X0: $i,X1: $i,X2: $i] :
      ( greater(sk1(X2,X0),sk1(sk8,sk2))
      | ~ greater(X1,sk6)
      | ~ organization(X0,X2)
      | ~ class(X0,sk5,X2)
      | ~ complexity(X0,X1,X2) ),
    inference(superposition,[status(thm)],[c_167,c_465]) ).

tcf(c_721,plain,
    ! [X0: $i,X1: $i] :
      ( greater(sk9,sk10)
      | organization(sk3,sk10)
      | ~ organization(sk3,sk8)
      | ~ organization(sk2,sk8)
      | ~ reorganization(sk3,sk8,sk10)
      | ~ reorganization(sk2,sk8,sk9)
      | ~ reorganization_type(sk3,X1,sk8)
      | ~ reorganization_type(sk2,X1,sk8)
      | ~ class(sk3,X0,sk8)
      | ~ class(sk2,X0,sk8)
      | ~ inertia(sk3,sk1(sk8,sk3),sk8)
      | ~ inertia(sk2,sk1(sk8,sk2),sk8)
      | ~ greater(sk1(sk8,sk3),sk1(sk8,sk2)) ),
    inference(instantiation,[status(thm)],[c_278]) ).

tcf(c_741,plain,
    ( greater(sk1(sk8,sk3),sk1(sk8,sk2))
    | ~ greater(sk7,sk6)
    | ~ organization(sk3,sk8)
    | ~ class(sk3,sk5,sk8) ),
    inference(superposition,[status(thm)],[c_160,c_696]) ).

tcf(c_742,plain,
    greater(sk1(sk8,sk3),sk1(sk8,sk2)),
    inference(forward_subsumption_resolution,[status(thm)],[c_741,c_159,c_169,c_166]) ).

tcf(c_1027,plain,
    ! [X0: $i] :
      ( greater(sk9,sk10)
      | organization(sk3,sk10)
      | ~ organization(sk3,sk8)
      | ~ organization(sk2,sk8)
      | ~ reorganization(sk3,sk8,sk10)
      | ~ reorganization(sk2,sk8,sk9)
      | ~ class(sk3,sk5,sk8)
      | ~ class(sk2,sk5,sk8)
      | ~ reorganization_type(sk3,X0,sk8)
      | ~ reorganization_type(sk2,X0,sk8)
      | ~ inertia(sk3,sk1(sk8,sk3),sk8)
      | ~ inertia(sk2,sk1(sk8,sk2),sk8)
      | ~ greater(sk1(sk8,sk3),sk1(sk8,sk2)) ),
    inference(instantiation,[status(thm)],[c_721]) ).

tcf(c_1042,plain,
    ( greater(sk9,sk10)
    | organization(sk3,sk10)
    | ~ organization(sk3,sk8)
    | ~ organization(sk2,sk8)
    | ~ reorganization_type(sk3,sk4,sk8)
    | ~ reorganization_type(sk2,sk4,sk8)
    | ~ reorganization(sk3,sk8,sk10)
    | ~ reorganization(sk2,sk8,sk9)
    | ~ class(sk3,sk5,sk8)
    | ~ class(sk2,sk5,sk8)
    | ~ inertia(sk3,sk1(sk8,sk3),sk8)
    | ~ inertia(sk2,sk1(sk8,sk2),sk8)
    | ~ greater(sk1(sk8,sk3),sk1(sk8,sk2)) ),
    inference(instantiation,[status(thm)],[c_1027]) ).

tcf(c_1043,plain,
    $false,
    inference(prop_impl_just,[status(thm)],[c_1042,c_742,c_172,c_171,c_70,c_71,c_72,c_73,c_74,c_75,c_76,c_80,c_68,c_69]) ).


%------------------------------------------------------------------------------
%----ORIGINAL SYSTEM OUTPUT
% 0.00/0.03  % Problem  : MGT016-1 : TPTP v9.3.1. Released v2.4.0.
% 0.00/0.04  % Command  : run_iprover 300 /export/starexec/sandbox2/benchmark/theBenchmark.p THM
% 0.10/0.37  % Computer : n017.cluster.edu
% 0.10/0.37  % Model    : x86_64 x86_64
% 0.10/0.37  % CPU      : Intel(R) Xeon(R) CPU E5-2620 v4 @ 2.10GHz
% 0.10/0.37  % Memory   : 8046.5625MB
% 0.10/0.37  % OS       : Linux 6.8.0-71-generic
% 0.10/0.37  % CPULimit : 300
% 0.10/0.37  % WCLimit  : 300
% 0.10/0.37  % DateTime : Thu Sep 24 00:55:15 UTC 2026
% 0.10/0.37  % CPUTime  : 
% 0.10/0.37  Running run_iprover 300 /export/starexec/sandbox2/benchmark/theBenchmark.p THM
% 0.10/0.41  Running first-order theorem proving
% 0.10/0.41  Running: /export/starexec/sandbox2/solver/bin/iproveropt-multi-core.sh -d -n -l tptp -s fof_schedule -t 300 /export/starexec/sandbox2/benchmark/theBenchmark.p
% 0.10/0.42  
% 0.10/0.42  % ======== iProver multi-core TPTP/SMT =========
% 0.10/0.42  
% 0.10/0.42  % Detected problem language: tptp
% 0.10/0.44  % Proving...
% 1.88/1.28  % SZS status Started for theBenchmark.p
% 1.88/1.28  % SZS status Unsatisfiable for theBenchmark.p
% 1.88/1.28  
% 1.88/1.28  %---------------- iProver v3.9.4 (pre CASC 2026/SMT-COMP 2026) ----------------%
% 1.88/1.28  
% 1.88/1.28  % ------  iProver source info
% 1.88/1.28  
% 1.88/1.28  % git: date: 2026-07-19 20:42:38 +0200
% 1.88/1.28  % git: sha1: 804e7d636a263075307957e923b7a22a4035de61
% 1.88/1.28  % git: non_committed_changes: false
% 1.88/1.28  
% 1.88/1.28  % ------ Parsing...% successful
% 1.88/1.28  
% 1.88/1.28  
% 1.88/1.28  % ------ Clausification by vclausify_rel  & Parsing by iProver...% 
% 1.88/1.28  
% 1.88/1.28  % ------ Preprocessing... sf_s  rm: 0 0s  sf_e  pe_s  pe_e % 
% 1.88/1.28  
% 1.88/1.28  % ------ Preprocessing... gs_s  sp: 0 0s  gs_e  snvd_s sp: 0 0s snvd_e 
% 1.88/1.28  % ------ Proving...
% 1.88/1.28  % ------ Problem Properties 
% 1.88/1.28  
% 1.88/1.28  % 
% 1.88/1.28  % clauses                               16
% 1.88/1.28  % conjectures                           13
% 1.88/1.28  % EPR                                   15
% 1.88/1.28  % Horn                                  15
% 1.88/1.28  % unary                                 13
% 1.88/1.28  % binary                                1
% 1.88/1.28  % lits                                  38
% 1.88/1.28  % lits eq                               0
% 1.88/1.28  % fd_pure                               0
% 1.88/1.28  % fd_pseudo                             0
% 1.88/1.28  % fd_cond                               0
% 1.88/1.28  % fd_pseudo_cond                        0
% 1.88/1.28  % AC symbols                            0
% 1.88/1.28  
% 1.88/1.28  % ------ Schedule dynamic 5 is on 
% 1.88/1.28  
% 1.88/1.28  % ------ no equalities: superposition off 
% 1.88/1.28  
% 1.88/1.28  % ------ Input Options "--resolution_flag false --inst_lit_sel_side none" Time Limit: 10.
% 1.88/1.28  
% 1.88/1.28  
% 1.88/1.28  % ------ 
% 1.88/1.28  % Current options:
% 1.88/1.28  % ------ 
% 1.88/1.28  
% 1.88/1.28  
% 1.88/1.28  % 
% 1.88/1.28  
% 1.88/1.28  % ------ Proving...
% 1.88/1.28  % 
% 1.88/1.28  
% 1.88/1.28  % SZS status Unsatisfiable for theBenchmark.p
% 1.88/1.28  
% 1.88/1.28  % SZS output start CNFRefutation for theBenchmark.p
% See solution above
% 1.88/1.28  
% 1.88/1.28  
%------------------------------------------------------------------------------