Aoc 2025 Day 2 in MAT

@IU
<Filename>@Or
DO{@MF @Ga@{,","}@RA@U0}
@V0@[@{,"-"}@RA]@U0,
@V0@[@CallSub(Dubs)]
@V2@~+;

:Code Dubs
^{S,E}
S@SV^A,E@SV^B,
@NL@U1
//Part 1 DO{A~>B {A}@CallSub(GetPara),A+1^A}
DO{A~>B {A}@CallSub(GetReps),A+1^A}
@F1
DO{{@M1,@R1<S}@& @N1}
DO{{@M1,@R1~>E}@& @K1@J2};

:Code GetPara
^{L}
IF{L\2~=0 @NL;
   9:(L/2)^E
   (E~$1)+1^S,
   DO{S~>E (S,S)@J1,S+1^S}
   };

:Code GetReps
^{L}
2^Z,
DO{Z~>L {L,Z}@CallSub(FindEmAll)Z+1^Z}
"A"@S1,@V1@KV@U1;

:Code FindEmAll
^{L,A}
IF{L\A~=0 @NL;
   9:(L/A)^E
   (E~$1)+1^S,
   DO{S~>E S:A@J1,S+1^S}
   };