Fractran code for AoC2020 Day 5

AoC2020_5.fr

Prog1=[
  # Move everything according to flag
  (37*59)/(31*41), (37*67*71)/(31*43), 31//37, 1//31, 43//71,
  # Construct the index from the binary representation
  1/2^7,  1/2^2,  (43*47*53*61)^512/2,
  1/3^7,  1/3^2,  (43*47*53*61)^256/3,
  1/5^7,  1/5^2,  (43*47*53*61)^128/5,
  1/7^7,  1/7^2,  (43*47*53*61)^64/7,
  1/11^7, 1/11^2, (43*47*53*61)^32/11,
  1/13^7, 1/13^2, (43*47*53*61)^16/13,
  1/17^7, 1/17^2, (43*47*53*61)^8/17,
  1/19^7, 1/19^2, (43*47*53*61)^4/19,
  1/23^7, 1/23^2, (43*47*53*61)^2/23,
  1/29^7, 1/29^2, (43*47*53*61)^1/29,
  # Put the new minima and maxima into the correct place
  41/(53*59), 1/53, 1/59,
  1/(43*61*67), 1/61; 1/67
]

Prog2=[
  # Move the min and the max, copying as needed, outputing solution to Part 1
  (5*7*11)/41, (2*5*23*29)//43),
  # Max^2
  (5*31,53)/(29*37), 37/53, 1/37, 29/31, 37/23, 1/29,
  # Min^2
  (5*13*19)/(11*17), 17/19, 1/17, 11/13, 17/7, 1/11,
  # Put solution to Part 2 together
  3/47, 1/(3*5^2)
]