FLRP.Certificates.SmallLatticeReps.SLR33¶
A machine-checked representation: Con(B33) ≅ manuscript L33 (M5)¶
This is the FLRP.Certificates.SmallLatticeReps.SLR33 module of the Agda Universal Algebra Library.
This module was emitted by scripts/python/flrp/emit_agda.py from
scripts/python/flrp/inputs/slr/slr33.json. Do not edit it by hand; rerun the emitter instead.
B33/L33 in the numbering of the DeMeo–Freese–Jipsen manuscript Representing Finite Lattices as Congruence Lattices of Finite Algebras (§ 6 of the 2016-06-10 draft, docs/papers/fin-lat-rep/SmallLatticeReps.tex). The dictionary between the manuscript's lattice numbering and this library's names is docs/notes/flrp-slr-naming.md.
It re-verifies, end-to-end through the WP-6 certificate pipeline (#457), the
claim that the congruence lattice of the algebra "B33" — carrier size
16, unary operations f, g, h — is isomorphic to the lattice
"manuscript L33 (M5)" (7 elements). The engine's output below (normal-form
parent vectors, Freese traces, and pointer tables) is certificate data only:
the search-free checkers of Setoid.Congruences.Certificates re-verify all
of it during type-checking, and the FLRP.Certificates assembly turns the
checked certificate into the headline theorems — a
Representableᵈ witness for the target lattice and a
FiniteCongruencesᵈ instance for the algebra. Nothing is
believed on the engine's authority: a wrong table or trace would make a
decidable check compute to no and break
compilation.
The algebra, from its operation tables¶
Row f of opTables is the value table of the f-th unary
operation; Classical.Structures.Unary turns the table into the algebra
and its finiteness witnesses.
opTables : Vec (Vec (Fin 16) 16) 3 opTables = (1F ∷ 3F ∷ 2F ∷ 0F ∷ 9F ∷ 11F ∷ 10F ∷ 8F ∷ 13F ∷ 15F ∷ 14F ∷ 12F ∷ 5F ∷ 7F ∷ 6F ∷ 4F ∷ []) ∷ (11F ∷ 8F ∷ 10F ∷ 9F ∷ 7F ∷ 4F ∷ 6F ∷ 5F ∷ 15F ∷ 12F ∷ 14F ∷ 13F ∷ 3F ∷ 0F ∷ 2F ∷ 1F ∷ []) ∷ (14F ∷ 15F ∷ 12F ∷ 13F ∷ 10F ∷ 11F ∷ 8F ∷ 9F ∷ 6F ∷ 7F ∷ 4F ∷ 5F ∷ 2F ∷ 3F ∷ 0F ∷ 1F ∷ []) ∷ [] 𝑨 : Algebra {𝑆 = Sig-Unary (Fin 3)} 0ℓ 0ℓ 𝑨 = tablesToUnaryAlgebra 16 3 opTables 𝑭 : FiniteAlgebra 𝑨 𝑭 = tablesToUnaryAlgebra-FiniteAlgebra 16 3 opTables 𝑺 : FiniteSignature (Sig-Unary (Fin 3)) 𝑺 = Sig-Unary-Fin-FiniteSignature 3
The target lattice, from its Cayley tables¶
The claimed congruence lattice "manuscript L33 (M5)", presented exactly as the worked lattice examples are (Examples.Classical.Lattices.L7): meet and join tables, every law discharged by decision over the finite carrier.
∧-table ∨-table : Table 7 ∧-table = (0F ∷ 0F ∷ 0F ∷ 0F ∷ 0F ∷ 0F ∷ 0F ∷ []) ∷ (0F ∷ 1F ∷ 0F ∷ 0F ∷ 0F ∷ 0F ∷ 1F ∷ []) ∷ (0F ∷ 0F ∷ 2F ∷ 0F ∷ 0F ∷ 0F ∷ 2F ∷ []) ∷ (0F ∷ 0F ∷ 0F ∷ 3F ∷ 0F ∷ 0F ∷ 3F ∷ []) ∷ (0F ∷ 0F ∷ 0F ∷ 0F ∷ 4F ∷ 0F ∷ 4F ∷ []) ∷ (0F ∷ 0F ∷ 0F ∷ 0F ∷ 0F ∷ 5F ∷ 5F ∷ []) ∷ (0F ∷ 1F ∷ 2F ∷ 3F ∷ 4F ∷ 5F ∷ 6F ∷ []) ∷ [] ∨-table = (0F ∷ 1F ∷ 2F ∷ 3F ∷ 4F ∷ 5F ∷ 6F ∷ []) ∷ (1F ∷ 1F ∷ 6F ∷ 6F ∷ 6F ∷ 6F ∷ 6F ∷ []) ∷ (2F ∷ 6F ∷ 2F ∷ 6F ∷ 6F ∷ 6F ∷ 6F ∷ []) ∷ (3F ∷ 6F ∷ 6F ∷ 3F ∷ 6F ∷ 6F ∷ 6F ∷ []) ∷ (4F ∷ 6F ∷ 6F ∷ 6F ∷ 4F ∷ 6F ∷ 6F ∷ []) ∷ (5F ∷ 6F ∷ 6F ∷ 6F ∷ 6F ∷ 5F ∷ 6F ∷ []) ∷ (6F ∷ 6F ∷ 6F ∷ 6F ∷ 6F ∷ 6F ∷ 6F ∷ []) ∷ [] open FiniteLattice 𝑳 : FiniteLattice 𝑳 .size = 6 𝑳 ._∧_ = ⟦ ∧-table ⟧ 𝑳 ._∨_ = ⟦ ∨-table ⟧ 𝑳 .∧-assoc = from-yes (Associative? ⟦ ∧-table ⟧) 𝑳 .∧-comm = from-yes (Commutative? ⟦ ∧-table ⟧) 𝑳 .∧-idem = from-yes (Idempotent? ⟦ ∧-table ⟧) 𝑳 .∨-assoc = from-yes (Associative? ⟦ ∨-table ⟧) 𝑳 .∨-comm = from-yes (Commutative? ⟦ ∨-table ⟧) 𝑳 .∨-idem = from-yes (Idempotent? ⟦ ∨-table ⟧) 𝑳 .absorbˡ = from-yes (Absorbsˡ? ⟦ ∧-table ⟧ ⟦ ∨-table ⟧) 𝑳 .absorbʳ = from-yes (Absorbsʳ? ⟦ ∧-table ⟧ ⟦ ∨-table ⟧)
The certificate¶
The engine's whole-lattice certificate (design note § 4): the congruence
list as normal-form parent vectors, indexed by the lattice's carrier; the
principal-congruence pointer table with one Freese trace per carrier pair;
and the join traces, seeded by forest edges. The meet and join tables are
the target's own tables, which is what MeetMatches pins.
open CertCheck 𝑭 𝑺 using ( arOf ) cert : LatticeCert 16 3 arOf 7 cert = mkLatticeCert partsᵛ 0F prinᵛ prinTrᵛ ∧-table ∨-table joinTrᵛ where partsᵛ : Vec (ParentVec 16) 7 partsᵛ = (0F ∷ 1F ∷ 2F ∷ 3F ∷ 4F ∷ 5F ∷ 6F ∷ 7F ∷ 8F ∷ 9F ∷ 10F ∷ 11F ∷ 12F ∷ 13F ∷ 14F ∷ 15F ∷ []) ∷ (0F ∷ 0F ∷ 0F ∷ 0F ∷ 4F ∷ 4F ∷ 4F ∷ 4F ∷ 8F ∷ 8F ∷ 8F ∷ 8F ∷ 12F ∷ 12F ∷ 12F ∷ 12F ∷ []) ∷ (0F ∷ 1F ∷ 2F ∷ 3F ∷ 0F ∷ 1F ∷ 2F ∷ 3F ∷ 0F ∷ 1F ∷ 2F ∷ 3F ∷ 0F ∷ 1F ∷ 2F ∷ 3F ∷ []) ∷ (0F ∷ 1F ∷ 2F ∷ 3F ∷ 1F ∷ 0F ∷ 3F ∷ 2F ∷ 2F ∷ 3F ∷ 0F ∷ 1F ∷ 3F ∷ 2F ∷ 1F ∷ 0F ∷ []) ∷ (0F ∷ 1F ∷ 2F ∷ 3F ∷ 2F ∷ 3F ∷ 0F ∷ 1F ∷ 3F ∷ 2F ∷ 1F ∷ 0F ∷ 1F ∷ 0F ∷ 3F ∷ 2F ∷ []) ∷ (0F ∷ 1F ∷ 2F ∷ 3F ∷ 3F ∷ 2F ∷ 1F ∷ 0F ∷ 1F ∷ 0F ∷ 3F ∷ 2F ∷ 2F ∷ 3F ∷ 0F ∷ 1F ∷ []) ∷ (0F ∷ 0F ∷ 0F ∷ 0F ∷ 0F ∷ 0F ∷ 0F ∷ 0F ∷ 0F ∷ 0F ∷ 0F ∷ 0F ∷ 0F ∷ 0F ∷ 0F ∷ 0F ∷ []) ∷ [] prinᵛ : Vec (Vec (Fin 7) 16) 16 prinᵛ = (0F ∷ 1F ∷ 1F ∷ 1F ∷ 2F ∷ 3F ∷ 4F ∷ 5F ∷ 2F ∷ 5F ∷ 3F ∷ 4F ∷ 2F ∷ 4F ∷ 5F ∷ 3F ∷ []) ∷ (1F ∷ 0F ∷ 1F ∷ 1F ∷ 3F ∷ 2F ∷ 5F ∷ 4F ∷ 5F ∷ 2F ∷ 4F ∷ 3F ∷ 4F ∷ 2F ∷ 3F ∷ 5F ∷ []) ∷ (1F ∷ 1F ∷ 0F ∷ 1F ∷ 4F ∷ 5F ∷ 2F ∷ 3F ∷ 3F ∷ 4F ∷ 2F ∷ 5F ∷ 5F ∷ 3F ∷ 2F ∷ 4F ∷ []) ∷ (1F ∷ 1F ∷ 1F ∷ 0F ∷ 5F ∷ 4F ∷ 3F ∷ 2F ∷ 4F ∷ 3F ∷ 5F ∷ 2F ∷ 3F ∷ 5F ∷ 4F ∷ 2F ∷ []) ∷ (2F ∷ 3F ∷ 4F ∷ 5F ∷ 0F ∷ 1F ∷ 1F ∷ 1F ∷ 2F ∷ 4F ∷ 5F ∷ 3F ∷ 2F ∷ 5F ∷ 3F ∷ 4F ∷ []) ∷ (3F ∷ 2F ∷ 5F ∷ 4F ∷ 1F ∷ 0F ∷ 1F ∷ 1F ∷ 4F ∷ 2F ∷ 3F ∷ 5F ∷ 5F ∷ 2F ∷ 4F ∷ 3F ∷ []) ∷ (4F ∷ 5F ∷ 2F ∷ 3F ∷ 1F ∷ 1F ∷ 0F ∷ 1F ∷ 5F ∷ 3F ∷ 2F ∷ 4F ∷ 3F ∷ 4F ∷ 2F ∷ 5F ∷ []) ∷ (5F ∷ 4F ∷ 3F ∷ 2F ∷ 1F ∷ 1F ∷ 1F ∷ 0F ∷ 3F ∷ 5F ∷ 4F ∷ 2F ∷ 4F ∷ 3F ∷ 5F ∷ 2F ∷ []) ∷ (2F ∷ 5F ∷ 3F ∷ 4F ∷ 2F ∷ 4F ∷ 5F ∷ 3F ∷ 0F ∷ 1F ∷ 1F ∷ 1F ∷ 2F ∷ 3F ∷ 4F ∷ 5F ∷ []) ∷ (5F ∷ 2F ∷ 4F ∷ 3F ∷ 4F ∷ 2F ∷ 3F ∷ 5F ∷ 1F ∷ 0F ∷ 1F ∷ 1F ∷ 3F ∷ 2F ∷ 5F ∷ 4F ∷ []) ∷ (3F ∷ 4F ∷ 2F ∷ 5F ∷ 5F ∷ 3F ∷ 2F ∷ 4F ∷ 1F ∷ 1F ∷ 0F ∷ 1F ∷ 4F ∷ 5F ∷ 2F ∷ 3F ∷ []) ∷ (4F ∷ 3F ∷ 5F ∷ 2F ∷ 3F ∷ 5F ∷ 4F ∷ 2F ∷ 1F ∷ 1F ∷ 1F ∷ 0F ∷ 5F ∷ 4F ∷ 3F ∷ 2F ∷ []) ∷ (2F ∷ 4F ∷ 5F ∷ 3F ∷ 2F ∷ 5F ∷ 3F ∷ 4F ∷ 2F ∷ 3F ∷ 4F ∷ 5F ∷ 0F ∷ 1F ∷ 1F ∷ 1F ∷ []) ∷ (4F ∷ 2F ∷ 3F ∷ 5F ∷ 5F ∷ 2F ∷ 4F ∷ 3F ∷ 3F ∷ 2F ∷ 5F ∷ 4F ∷ 1F ∷ 0F ∷ 1F ∷ 1F ∷ []) ∷ (5F ∷ 3F ∷ 2F ∷ 4F ∷ 3F ∷ 4F ∷ 2F ∷ 5F ∷ 4F ∷ 5F ∷ 2F ∷ 3F ∷ 1F ∷ 1F ∷ 0F ∷ 1F ∷ []) ∷ (3F ∷ 5F ∷ 4F ∷ 2F ∷ 4F ∷ 3F ∷ 5F ∷ 2F ∷ 5F ∷ 4F ∷ 3F ∷ 2F ∷ 1F ∷ 1F ∷ 1F ∷ 0F ∷ []) ∷ [] prinTrᵛ : Vec (Vec (Trace 16 3 arOf) 16) 16 prinTrᵛ = ( [] ∷ ( mkMerge 0F 1F (seed 0) ∷ mkMerge 1F 3F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 11F 8F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 14F 15F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 8F 9F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 15F 13F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 12F 13F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 5F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 6F 4F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 1F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 6F 7F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 11F 10F (translate 0F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 0F 2F (seed 0) ∷ mkMerge 1F 2F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 11F 10F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 14F 12F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 3F 2F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 8F 10F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 15F 12F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 13F 14F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 4F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 6F 5F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 9F 10F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 7F 6F (translate 0F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 0F 3F (seed 0) ∷ mkMerge 1F 0F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 11F 9F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 14F 13F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 8F 11F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 15F 14F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 12F 15F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 5F 7F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 6F 7F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 0F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 4F 6F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 10F 8F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 0F 4F (seed 0) ∷ mkMerge 1F 9F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 11F 7F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 14F 10F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 3F 15F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 8F 12F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 15F 7F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 13F 5F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 9F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 6F 14F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 2F 14F (translate 1F 0F (0F ∷ []) 6) ∷ mkMerge 4F 8F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 0F 5F (seed 0) ∷ mkMerge 1F 11F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 11F 4F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 14F 11F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 3F 12F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 8F 13F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 15F 5F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 12F 9F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 13F 7F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 5F 10F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 6F 12F (translate 0F 0F (0F ∷ []) 6) ∷ mkMerge 2F 13F (translate 1F 0F (0F ∷ []) 7) ∷ [] ) ∷ ( mkMerge 0F 6F (seed 0) ∷ mkMerge 1F 10F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 11F 6F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 14F 8F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 3F 14F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 15F 4F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 12F 10F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 13F 6F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 8F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 2F 15F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 9F 2F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 1F 7F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 0F 7F (seed 0) ∷ mkMerge 1F 8F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 11F 5F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 14F 9F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 3F 13F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 8F 15F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 15F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 12F 11F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 13F 4F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 2F 12F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 9F 0F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 4F 10F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 0F 8F (seed 0) ∷ mkMerge 1F 13F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 11F 15F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 14F 6F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 3F 7F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 15F 3F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 12F 4F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 5F 1F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 6F 10F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 6F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 9F 5F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 4F 0F (translate 0F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 0F 9F (seed 0) ∷ mkMerge 1F 15F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 11F 12F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 14F 7F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 3F 4F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 8F 1F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 12F 5F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 13F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 2F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 6F 8F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 9F 7F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 13F 10F (translate 2F 0F (0F ∷ []) 6) ∷ [] ) ∷ ( mkMerge 0F 10F (seed 0) ∷ mkMerge 1F 14F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 11F 14F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 14F 4F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 3F 6F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 8F 2F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 15F 0F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 12F 6F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 13F 2F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 5F 0F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 6F 9F (translate 0F 0F (0F ∷ []) 6) ∷ mkMerge 2F 7F (translate 1F 0F (0F ∷ []) 7) ∷ [] ) ∷ ( mkMerge 0F 11F (seed 0) ∷ mkMerge 1F 12F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 11F 13F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 14F 5F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 3F 5F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 8F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 15F 2F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 12F 7F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 6F 11F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 4F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 9F 4F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 1F 10F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 0F 12F (seed 0) ∷ mkMerge 1F 5F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 11F 3F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 14F 2F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 8F 4F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 15F 11F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 13F 9F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 5F 13F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 6F 2F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 10F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 15F 7F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 4F 12F (translate 0F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 0F 13F (seed 0) ∷ mkMerge 1F 7F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 11F 0F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 14F 3F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 3F 8F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 8F 5F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 15F 9F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 12F 1F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 6F 0F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 9F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 15F 4F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 1F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 0F 14F (seed 0) ∷ mkMerge 1F 6F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 11F 2F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 3F 10F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 8F 6F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 15F 8F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 12F 2F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 13F 10F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 12F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 9F 14F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 13F 4F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 7F 14F (translate 0F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 0F 15F (seed 0) ∷ mkMerge 1F 4F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 11F 1F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 14F 1F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 3F 9F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 8F 7F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 15F 10F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 12F 3F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 13F 8F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 5F 15F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 6F 3F (translate 0F 0F (0F ∷ []) 6) ∷ mkMerge 2F 8F (translate 1F 0F (0F ∷ []) 7) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 1F 0F (seed 0) ∷ mkMerge 3F 1F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 8F 11F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 15F 14F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 9F 8F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 13F 15F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 13F 12F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 5F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 4F 6F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 1F 2F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 7F 6F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 10F 11F (translate 0F 0F (0F ∷ []) 3) ∷ [] ) ∷ [] ∷ ( mkMerge 1F 2F (seed 0) ∷ mkMerge 3F 2F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 8F 10F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 15F 12F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 0F 2F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 9F 10F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 12F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 13F 14F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 6F 4F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 4F 5F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 11F 10F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 7F 4F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 1F 3F (seed 0) ∷ mkMerge 3F 0F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 8F 9F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 15F 13F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 9F 11F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 13F 14F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 15F 12F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 6F 7F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 4F 7F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 7F 5F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 0F 2F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 8F (translate 0F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 1F 4F (seed 0) ∷ mkMerge 3F 9F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 8F 7F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 15F 10F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 0F 15F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 9F 12F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 7F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 15F 5F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 6F 9F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 4F 14F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 11F 1F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 7F 2F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 1F 5F (seed 0) ∷ mkMerge 3F 11F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 8F 4F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 15F 11F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 0F 12F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 9F 13F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 5F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 15F 7F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 6F 10F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 4F 12F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 14F 2F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 10F 14F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 1F 6F (seed 0) ∷ mkMerge 3F 10F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 8F 6F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 15F 8F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 0F 14F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 9F 14F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 4F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 13F 10F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 11F 2F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 12F 2F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 7F 0F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 5F 12F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 1F 7F (seed 0) ∷ mkMerge 3F 8F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 8F 5F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 15F 9F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 0F 13F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 13F 6F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 13F 11F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 15F 4F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 1F 12F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 3F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 7F 10F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 15F 2F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 1F 8F (seed 0) ∷ mkMerge 3F 13F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 8F 15F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 15F 6F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 0F 7F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 9F 0F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 4F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 4F 10F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 11F 5F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 14F 9F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 12F 11F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 12F (translate 1F 0F (0F ∷ []) 1) ∷ [] ) ∷ ( mkMerge 1F 9F (seed 0) ∷ mkMerge 3F 15F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 8F 12F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 15F 7F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 0F 4F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 13F 1F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 13F 5F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 2F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 4F 8F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 11F 7F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 10F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 10F 2F (translate 0F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 1F 10F (seed 0) ∷ mkMerge 3F 14F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 8F 14F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 15F 4F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 0F 6F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 9F 2F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 0F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 15F 2F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 1F 7F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 11F 6F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 12F 10F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 8F 5F (translate 1F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 1F 11F (seed 0) ∷ mkMerge 3F 12F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 8F 13F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 15F 5F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 0F 5F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 9F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 2F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 13F 7F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 6F 3F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 4F 11F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 14F 11F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 0F 10F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 1F 12F (seed 0) ∷ mkMerge 3F 5F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 8F 3F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 15F 2F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 0F 11F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 9F 4F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 11F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 15F 9F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 6F 13F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 1F 10F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 14F 5F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 12F 7F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 1F 13F (seed 0) ∷ mkMerge 3F 7F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 8F 0F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 15F 3F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 9F 5F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 13F 9F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 15F 11F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 6F 14F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 4F 0F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 12F 4F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 6F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 6F 2F (translate 1F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 1F 14F (seed 0) ∷ mkMerge 3F 6F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 8F 2F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 15F 0F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 0F 10F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 9F 6F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 8F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 6F 12F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 4F 1F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 1F 11F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 7F 8F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 10F 5F (translate 0F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 1F 15F (seed 0) ∷ mkMerge 3F 4F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 8F 1F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 0F 9F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 9F 7F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 13F 10F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 13F 3F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 15F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 11F 12F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 7F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 12F 5F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 5F 2F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 2F 0F (seed 0) ∷ mkMerge 2F 1F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 10F 11F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 12F 14F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 2F 3F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 10F 8F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 12F 15F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 14F 13F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 4F 5F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 5F 6F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 10F 9F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 6F 7F (translate 0F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 2F 1F (seed 0) ∷ mkMerge 2F 3F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 10F 8F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 12F 15F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 2F 0F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 10F 9F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 12F 13F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 14F 13F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 4F 6F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 5F 4F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 10F 11F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 4F 7F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ [] ∷ ( mkMerge 2F 3F (seed 0) ∷ mkMerge 2F 0F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 10F 9F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 12F 13F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 2F 1F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 10F 11F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 12F 14F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 14F 15F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 4F 7F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 5F 7F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 10F 8F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 5F 6F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 2F 4F (seed 0) ∷ mkMerge 2F 9F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 10F 7F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 12F 10F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 2F 15F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 8F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 5F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 3F 14F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 10F 1F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 6F 13F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 0F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 6F 11F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 2F 5F (seed 0) ∷ mkMerge 2F 11F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 10F 4F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 12F 11F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 10F 13F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 14F 9F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 7F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 3F 13F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 14F 0F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 6F 15F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 8F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 1F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 2F 6F (seed 0) ∷ mkMerge 2F 10F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 12F 8F (translate 2F 0F (0F ∷ []) 1) ∷ mkMerge 2F 14F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 12F 4F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 13F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 3F 15F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 12F 0F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 5F 9F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 3F 7F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 11F 7F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 9F 1F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 2F 7F (seed 0) ∷ mkMerge 2F 8F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 10F 5F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 12F 9F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 2F 13F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 10F 15F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 12F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 14F 11F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 14F 4F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 3F 12F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 10F 0F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 14F 1F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 2F 8F (seed 0) ∷ mkMerge 2F 13F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 10F 15F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 12F 6F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 2F 7F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 10F 0F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 12F 3F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 14F 4F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 14F 1F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 5F 10F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 12F 9F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 14F 11F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 2F 9F (seed 0) ∷ mkMerge 2F 15F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 10F 12F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 12F 7F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 2F 4F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 10F 1F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 14F 5F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 14F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 8F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 6F 11F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 0F 11F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 0F 13F (translate 2F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 2F 10F (seed 0) ∷ mkMerge 2F 14F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 12F 4F (translate 2F 0F (0F ∷ []) 1) ∷ mkMerge 2F 6F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 12F 0F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 9F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 3F 7F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 12F 8F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 5F 1F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 3F 11F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 11F 15F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 13F 9F (translate 2F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 2F 11F (seed 0) ∷ mkMerge 2F 12F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 10F 13F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 12F 5F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 10F 3F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 14F 7F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 0F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 4F 3F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 14F 9F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 6F 8F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 1F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 15F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 2F 12F (seed 0) ∷ mkMerge 2F 5F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 10F 3F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 2F 11F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 10F 4F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 14F 0F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 9F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 4F 13F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 14F 7F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 6F 1F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 15F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 8F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 2F 13F (seed 0) ∷ mkMerge 2F 7F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 10F 0F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 12F 3F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 2F 8F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 10F 5F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 12F 9F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 14F 1F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 14F 11F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 4F 14F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 10F 15F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 12F 6F (translate 2F 0F (0F ∷ []) 6) ∷ [] ) ∷ ( mkMerge 2F 14F (seed 0) ∷ mkMerge 2F 6F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 10F 2F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 12F 0F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 12F 8F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 4F 12F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 1F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 3F 11F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 5F 13F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 3F 15F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 9F 5F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 7F 3F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 2F 15F (seed 0) ∷ mkMerge 2F 4F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 10F 1F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 12F 1F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 2F 9F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 10F 7F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 14F 3F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 14F 8F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 3F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 6F 0F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 0F 13F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 11F 0F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 3F 0F (seed 0) ∷ mkMerge 0F 1F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 9F 11F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 13F 14F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 11F 8F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 14F 15F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 15F 12F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 7F 5F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 7F 6F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 0F 2F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 6F 4F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 8F 10F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 3F 1F (seed 0) ∷ mkMerge 0F 3F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 9F 8F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 13F 15F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 11F 9F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 14F 13F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 12F 15F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 7F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 7F 4F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 5F 7F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 2F 0F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 8F 10F (translate 0F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 3F 2F (seed 0) ∷ mkMerge 0F 2F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 9F 10F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 13F 12F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 1F 2F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 11F 10F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 14F 12F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 15F 14F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 7F 4F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 7F 5F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 8F 10F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 6F 5F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ [] ∷ ( mkMerge 3F 4F (seed 0) ∷ mkMerge 0F 9F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 9F 7F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 13F 10F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 1F 15F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 11F 12F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 14F 7F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 15F 8F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 12F 5F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 13F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 5F 2F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 6F 8F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 3F 5F (seed 0) ∷ mkMerge 0F 11F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 9F 4F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 13F 11F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 1F 12F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 5F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 15F 9F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 12F 7F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 7F 10F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 8F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 15F 2F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 6F 11F (translate 0F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 3F 6F (seed 0) ∷ mkMerge 0F 10F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 9F 6F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 13F 8F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 1F 14F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 11F 14F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 14F 4F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 15F 10F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 12F 6F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 7F 8F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 8F 2F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 5F 0F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 3F 7F (seed 0) ∷ mkMerge 0F 8F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 9F 5F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 13F 9F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 1F 13F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 11F 15F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 14F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 12F 4F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 7F 11F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 0F 12F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 6F 10F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 2F 6F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 3F 8F (seed 0) ∷ mkMerge 0F 13F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 9F 15F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 13F 6F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 1F 7F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 11F 0F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 14F 3F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 15F 4F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 12F 1F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 7F 10F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 8F 5F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 2F 9F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 3F 9F (seed 0) ∷ mkMerge 0F 15F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 9F 12F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 13F 7F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 1F 4F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 11F 1F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 14F 1F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 15F 5F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 7F 2F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 7F 8F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 15F 10F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 6F 3F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 3F 10F (seed 0) ∷ mkMerge 0F 14F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 9F 14F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 13F 4F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 1F 6F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 11F 2F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 15F 6F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 12F 2F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 7F 0F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 8F 6F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 13F 10F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 12F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 3F 11F (seed 0) ∷ mkMerge 0F 12F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 9F 13F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 13F 5F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 1F 5F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 2F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 15F 7F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 7F 3F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 0F 4F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 8F 4F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 6F 2F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 10F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 3F 12F (seed 0) ∷ mkMerge 0F 5F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 9F 3F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 13F 2F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 1F 11F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 11F 4F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 14F 11F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 15F 0F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 7F 13F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 0F 10F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 8F 13F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 6F 12F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 3F 13F (seed 0) ∷ mkMerge 0F 7F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 9F 0F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 1F 8F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 11F 5F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 14F 9F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 15F 1F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 12F 11F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 15F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 13F 4F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 12F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 4F 10F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 3F 14F (seed 0) ∷ mkMerge 0F 6F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 9F 2F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 13F 0F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 1F 10F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 11F 6F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 14F 8F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 15F 2F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 12F 10F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 7F 12F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 15F 4F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 5F 8F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 3F 15F (seed 0) ∷ mkMerge 0F 4F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 9F 1F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 13F 1F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 11F 7F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 14F 10F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 12F 8F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 7F 15F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 0F 8F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 13F 5F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 6F 14F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 14F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 4F 0F (seed 0) ∷ mkMerge 9F 1F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 7F 11F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 10F 14F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 15F 3F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 12F 8F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 7F 15F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 5F 13F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 9F 5F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 14F 6F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 14F 2F (translate 1F 0F (0F ∷ []) 6) ∷ mkMerge 8F 4F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 4F 1F (seed 0) ∷ mkMerge 9F 3F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 7F 8F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 10F 15F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 15F 0F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 12F 9F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 7F 13F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 5F 15F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 9F 6F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 14F 4F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 1F 11F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 2F 7F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 4F 2F (seed 0) ∷ mkMerge 9F 2F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 7F 10F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 10F 12F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 15F 2F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 8F 14F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 5F 14F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 14F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 1F 10F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 6F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 0F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 11F 6F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 4F 3F (seed 0) ∷ mkMerge 9F 0F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 7F 9F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 10F 13F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 15F 1F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 12F 11F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 7F 14F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 8F 15F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 5F 12F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 3F 13F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 2F 5F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 8F 6F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ [] ∷ ( mkMerge 4F 5F (seed 0) ∷ mkMerge 9F 11F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 7F 4F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 10F 11F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 15F 12F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 12F 13F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 8F 9F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 14F 12F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 1F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 1F 2F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 3F 0F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 6F 7F (translate 2F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 4F 6F (seed 0) ∷ mkMerge 9F 10F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 7F 6F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 10F 8F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 15F 14F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 12F 14F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 5F 6F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 14F 13F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 1F 2F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 1F 0F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 3F 2F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 11F 10F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 4F 7F (seed 0) ∷ mkMerge 9F 8F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 7F 5F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 10F 9F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 15F 13F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 12F 15F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 7F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 8F 11F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 14F 15F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 1F 0F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 1F 3F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 2F 1F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 4F 8F (seed 0) ∷ mkMerge 9F 13F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 7F 15F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 10F 6F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 12F 0F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 7F 3F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 5F 1F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 9F 1F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 14F 10F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 3F 11F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 14F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 8F 0F (translate 0F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 4F 9F (seed 0) ∷ mkMerge 9F 15F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 7F 12F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 10F 7F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 12F 1F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 8F 5F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 5F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 9F 2F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 14F 8F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 13F 11F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 11F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 11F 0F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 4F 10F (seed 0) ∷ mkMerge 9F 14F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 7F 14F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 15F 6F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 12F 2F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 7F 0F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 8F 6F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 5F 2F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 1F 6F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 3F 10F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 11F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 13F 10F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 4F 11F (seed 0) ∷ mkMerge 9F 12F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 7F 13F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 10F 5F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 15F 5F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 12F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 7F 2F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 8F 7F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 5F 0F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 14F 11F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 1F 4F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 6F 9F (translate 2F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 4F 12F (seed 0) ∷ mkMerge 9F 5F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 7F 3F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 10F 2F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 15F 11F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 7F 11F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 8F 0F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 9F 13F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 14F 2F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 1F 13F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 8F 12F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 6F 14F (translate 2F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 4F 13F (seed 0) ∷ mkMerge 9F 7F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 7F 0F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 10F 3F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 15F 8F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 12F 5F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 8F 1F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 5F 11F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 9F 14F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 1F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 3F 4F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 11F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 4F 14F (seed 0) ∷ mkMerge 9F 6F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 7F 2F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 10F 0F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 15F 10F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 12F 6F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 7F 8F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 5F 10F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 1F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 14F 11F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 3F 6F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 8F 13F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 4F 15F (seed 0) ∷ mkMerge 9F 4F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 7F 1F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 10F 1F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 12F 7F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 8F 3F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 5F 8F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 14F 3F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 2F 9F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 13F 0F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 13F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 11F 13F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 5F 0F (seed 0) ∷ mkMerge 11F 1F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 4F 11F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 11F 14F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 12F 3F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 13F 8F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 5F 15F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 9F 12F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 7F 13F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 10F 5F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 12F 6F (translate 0F 0F (0F ∷ []) 6) ∷ mkMerge 13F 2F (translate 1F 0F (0F ∷ []) 7) ∷ [] ) ∷ ( mkMerge 5F 1F (seed 0) ∷ mkMerge 11F 3F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 4F 8F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 11F 15F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 12F 0F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 13F 9F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 5F 13F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 7F 15F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 6F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 12F 4F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 2F 14F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 14F 10F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 5F 2F (seed 0) ∷ mkMerge 11F 2F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 4F 10F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 11F 12F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 13F 10F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 9F 14F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 7F 14F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 0F 14F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 15F 6F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 8F 6F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 1F 6F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 5F 3F (seed 0) ∷ mkMerge 11F 0F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 4F 9F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 11F 13F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 12F 1F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 5F 14F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 9F 15F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 7F 12F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 7F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 3F 8F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 15F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 11F 6F (translate 0F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 5F 4F (seed 0) ∷ mkMerge 11F 9F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 4F 7F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 11F 10F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 12F 15F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 13F 12F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 9F 8F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 12F 14F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 3F 1F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 2F 1F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 0F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 7F 6F (translate 2F 0F (0F ∷ []) 4) ∷ [] ) ∷ [] ∷ ( mkMerge 5F 6F (seed 0) ∷ mkMerge 11F 10F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 4F 6F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 11F 8F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 12F 14F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 13F 14F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 9F 10F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 7F 6F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 13F 15F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 3F 2F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 0F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 0F 1F (translate 1F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 5F 7F (seed 0) ∷ mkMerge 11F 8F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 4F 5F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 11F 9F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 12F 13F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 13F 15F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 5F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 10F 11F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 3F 0F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 2F 3F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 0F 1F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 12F (translate 0F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 5F 8F (seed 0) ∷ mkMerge 11F 13F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 4F 15F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 11F 6F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 12F 7F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 13F 0F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 5F 3F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 9F 4F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 7F 1F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 10F 1F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 2F 9F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 3F 14F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 5F 9F (seed 0) ∷ mkMerge 11F 15F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 4F 12F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 11F 7F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 13F 1F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 5F 1F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 7F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 10F 2F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 12F 8F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 0F 8F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 2F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 2F 6F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 5F 10F (seed 0) ∷ mkMerge 11F 14F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 4F 14F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 12F 6F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 13F 2F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 5F 0F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 9F 6F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 7F 2F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 3F 6F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 8F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 11F 1F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 15F 10F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 5F 11F (seed 0) ∷ mkMerge 11F 12F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 4F 13F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 13F 3F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 5F 2F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 9F 7F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 7F 0F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 10F 3F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 15F 8F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 8F 1F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 9F 14F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 1F 6F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 5F 12F (seed 0) ∷ mkMerge 11F 5F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 4F 3F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 11F 2F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 13F 4F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 9F 0F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 7F 9F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 10F 13F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 15F 1F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 7F 14F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 8F 15F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 8F 6F (translate 0F 0F (0F ∷ []) 1) ∷ [] ) ∷ ( mkMerge 5F 13F (seed 0) ∷ mkMerge 11F 7F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 4F 0F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 11F 3F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 12F 8F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 5F 9F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 9F 1F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 10F 14F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 12F 0F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 3F 15F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 6F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 14F 6F (translate 0F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 5F 14F (seed 0) ∷ mkMerge 11F 6F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 4F 2F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 11F 0F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 12F 10F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 13F 6F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 5F 8F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 9F 2F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 7F 10F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 12F 1F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 3F 14F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 4F 15F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 5F 15F (seed 0) ∷ mkMerge 11F 4F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 4F 1F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 12F 9F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 13F 7F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 5F 10F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 9F 3F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 7F 8F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 7F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 0F 5F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 11F 14F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 9F 6F (translate 2F 0F (0F ∷ []) 3) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 6F 0F (seed 0) ∷ mkMerge 10F 1F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 6F 11F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 8F 14F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 14F 3F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 4F 15F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 10F 12F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 13F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 8F 5F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 15F 2F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 2F 9F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 7F 1F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 6F 1F (seed 0) ∷ mkMerge 10F 3F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 6F 8F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 8F 15F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 14F 0F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 9F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 4F 13F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 10F 13F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 11F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 2F 12F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 0F 7F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 12F 5F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 6F 2F (seed 0) ∷ mkMerge 10F 2F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 8F 12F (translate 2F 0F (0F ∷ []) 1) ∷ mkMerge 14F 2F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 4F 12F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 13F 5F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 15F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 0F 12F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 9F 5F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 7F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 7F 11F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 1F 9F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 6F 3F (seed 0) ∷ mkMerge 10F 0F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 6F 9F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 8F 13F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 14F 1F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 11F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 4F 14F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 10F 15F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 6F 12F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 8F 7F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 2F 8F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 0F 5F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 6F 4F (seed 0) ∷ mkMerge 10F 9F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 6F 7F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 8F 10F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 14F 15F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 12F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 6F 5F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 14F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 2F 1F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 0F 1F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 2F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 11F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 6F 5F (seed 0) ∷ mkMerge 10F 11F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 6F 4F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 8F 11F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 14F 12F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 13F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 10F 9F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 7F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 15F 13F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 0F 2F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 1F 0F (translate 1F 0F (0F ∷ []) 2) ∷ [] ) ∷ [] ∷ ( mkMerge 6F 7F (seed 0) ∷ mkMerge 10F 8F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 6F 5F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 8F 9F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 14F 13F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 15F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 4F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 10F 11F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 15F 12F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 0F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 0F 3F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 2F 1F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 6F 8F (seed 0) ∷ mkMerge 10F 13F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 6F 15F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 14F 7F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 14F 0F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 4F 3F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 10F 4F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 1F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 5F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 0F 9F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 2F 11F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 12F 11F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 6F 9F (seed 0) ∷ mkMerge 10F 15F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 6F 12F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 8F 7F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 14F 4F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 1F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 10F 5F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 8F 2F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 13F 8F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 0F 10F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 14F 11F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 6F 10F (seed 0) ∷ mkMerge 10F 14F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 8F 4F (translate 2F 0F (0F ∷ []) 1) ∷ mkMerge 14F 2F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 4F 0F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 13F 9F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 15F 7F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 0F 12F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 9F 1F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 7F 11F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 3F 7F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 1F 5F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 6F 11F (seed 0) ∷ mkMerge 10F 12F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 6F 13F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 8F 5F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 14F 5F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 4F 2F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 10F 7F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 6F 0F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 15F 4F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 2F 9F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 1F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 6F 12F (seed 0) ∷ mkMerge 10F 5F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 6F 3F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 8F 2F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 14F 11F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 4F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 10F 0F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 9F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 8F 13F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 15F 10F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 2F 7F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 1F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 6F 13F (seed 0) ∷ mkMerge 10F 7F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 6F 0F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 8F 3F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 14F 8F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 5F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 4F 9F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 10F 1F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 6F 11F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 15F 9F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 2F 15F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 7F 12F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 6F 14F (seed 0) ∷ mkMerge 10F 6F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 6F 2F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 8F 0F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 4F 8F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 8F 12F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 13F 1F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 15F 11F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 9F 13F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 7F 15F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 13F 5F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 15F 3F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 6F 15F (seed 0) ∷ mkMerge 10F 4F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 6F 1F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 8F 1F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 14F 9F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 7F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 10F 3F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 13F 3F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 2F 12F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 0F 7F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 2F 5F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 11F 5F (translate 1F 0F (0F ∷ []) 1) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 7F 0F (seed 0) ∷ mkMerge 8F 1F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 5F 11F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 9F 14F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 13F 3F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 15F 8F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 6F 15F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 11F 12F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 4F 13F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 12F 2F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 0F 9F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 10F 4F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 7F 1F (seed 0) ∷ mkMerge 8F 3F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 5F 8F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 9F 15F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 13F 0F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 6F 13F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 11F 13F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 4F 15F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 12F 1F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 3F 14F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 10F 7F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 15F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 7F 2F (seed 0) ∷ mkMerge 8F 2F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 5F 10F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 9F 12F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 13F 2F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 15F 10F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 6F 12F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 11F 14F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 4F 14F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 12F 3F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 0F 10F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 1F 14F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 7F 3F (seed 0) ∷ mkMerge 8F 0F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 5F 9F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 9F 13F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 13F 1F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 15F 11F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 6F 14F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 4F 12F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 11F 7F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 12F 0F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 10F 6F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 2F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 7F 4F (seed 0) ∷ mkMerge 8F 9F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 5F 7F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 9F 10F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 13F 15F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 15F 12F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 6F 7F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 11F 8F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 15F 14F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 0F 1F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 3F 1F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 1F 2F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 7F 5F (seed 0) ∷ mkMerge 8F 11F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 5F 4F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 9F 11F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 13F 12F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 15F 13F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 6F 5F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 11F 10F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 0F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 3F 2F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 1F 0F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 12F 14F (translate 0F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 7F 6F (seed 0) ∷ mkMerge 8F 10F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 5F 6F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 9F 8F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 13F 14F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 15F 14F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 6F 4F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 11F 10F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 12F 15F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 0F 2F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 3F 0F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 1F 2F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ [] ∷ ( mkMerge 7F 8F (seed 0) ∷ mkMerge 8F 13F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 5F 15F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 9F 6F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 15F 0F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 6F 3F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 11F 4F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 4F 1F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 15F 10F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 12F 6F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 1F 14F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 2F 8F (translate 2F 0F (0F ∷ []) 1) ∷ [] ) ∷ ( mkMerge 7F 9F (seed 0) ∷ mkMerge 8F 15F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 5F 12F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 13F 4F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 15F 1F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 6F 1F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 11F 5F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 4F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 11F 2F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 0F 7F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 3F 10F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 14F 9F (translate 2F 0F (0F ∷ []) 1) ∷ [] ) ∷ ( mkMerge 7F 10F (seed 0) ∷ mkMerge 8F 14F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 5F 14F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 9F 4F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 13F 6F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 15F 2F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 6F 0F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 11F 6F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 4F 2F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 12F 7F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 3F 8F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 1F 10F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 7F 11F (seed 0) ∷ mkMerge 8F 12F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 5F 13F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 9F 5F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 15F 3F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 6F 2F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 4F 0F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 11F 3F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 12F 4F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 1F 9F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 2F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 10F 14F (translate 2F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 7F 12F (seed 0) ∷ mkMerge 8F 5F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 5F 3F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 9F 2F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 13F 11F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 15F 4F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 6F 11F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 11F 0F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 4F 9F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 12F 10F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 1F 7F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 14F (translate 2F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 7F 13F (seed 0) ∷ mkMerge 8F 7F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 5F 0F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 9F 3F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 15F 5F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 6F 9F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 11F 1F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 4F 11F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 11F 14F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 12F 9F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 10F 15F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 13F 2F (translate 1F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 7F 14F (seed 0) ∷ mkMerge 8F 6F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 5F 2F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 9F 0F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 13F 10F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 15F 6F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 11F 2F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 4F 10F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 11F 12F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 15F 1F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 0F 14F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 3F 4F (translate 2F 0F (0F ∷ []) 6) ∷ [] ) ∷ ( mkMerge 7F 15F (seed 0) ∷ mkMerge 8F 4F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 5F 1F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 9F 1F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 13F 9F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 6F 10F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 11F 3F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 11F 15F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 12F 8F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 0F 12F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 14F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 6F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 8F 0F (seed 0) ∷ mkMerge 13F 1F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 15F 11F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 6F 14F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 7F 3F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 3F 15F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 4F 12F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 1F 5F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 10F 6F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 6F 2F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 5F 9F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 0F 4F (translate 0F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 8F 1F (seed 0) ∷ mkMerge 13F 3F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 15F 8F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 6F 15F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 7F 0F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 0F 9F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 4F 13F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 10F 4F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 5F 11F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 9F 14F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 11F 12F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 12F 2F (translate 1F 0F (0F ∷ []) 1) ∷ [] ) ∷ ( mkMerge 8F 2F (seed 0) ∷ mkMerge 13F 2F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 15F 10F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 6F 12F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 7F 2F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 0F 10F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 3F 12F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 4F 14F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 1F 14F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 10F 5F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 9F 12F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 11F 14F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 8F 3F (seed 0) ∷ mkMerge 13F 0F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 15F 9F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 6F 13F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 7F 1F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 0F 11F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 3F 14F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 4F 15F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 1F 12F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 10F 7F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 5F 8F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 9F 2F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 8F 4F (seed 0) ∷ mkMerge 13F 9F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 15F 7F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 6F 10F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 0F 12F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 3F 7F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 1F 5F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 1F 9F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 10F 14F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 11F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 2F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 0F 8F (translate 0F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 8F 5F (seed 0) ∷ mkMerge 13F 11F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 15F 4F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 6F 11F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 7F 12F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 0F 13F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 3F 5F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 4F 9F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 1F 7F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 1F 10F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 9F 2F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 14F 3F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 8F 6F (seed 0) ∷ mkMerge 13F 10F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 15F 6F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 7F 14F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 0F 14F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 3F 4F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 4F 10F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 1F 6F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 2F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 9F 0F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 11F 2F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 11F 12F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 8F 7F (seed 0) ∷ mkMerge 13F 8F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 15F 5F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 6F 9F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 0F 15F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 3F 6F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 4F 11F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 1F 4F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 15F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 6F 12F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 14F 1F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 8F 2F (translate 2F 0F (0F ∷ []) 1) ∷ [] ) ∷ [] ∷ ( mkMerge 8F 9F (seed 0) ∷ mkMerge 13F 15F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 15F 12F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 6F 7F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 7F 4F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 0F 1F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 3F 1F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 4F 5F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 1F 2F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 10F 8F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 11F 8F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 15F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 8F 10F (seed 0) ∷ mkMerge 13F 14F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 15F 14F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 6F 4F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 7F 6F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 0F 2F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 3F 0F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 1F 2F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 9F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 5F 6F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 11F 10F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 12F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 8F 11F (seed 0) ∷ mkMerge 13F 12F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 15F 13F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 6F 5F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 7F 5F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 0F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 3F 2F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 4F 7F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 1F 0F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 10F 11F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 9F 11F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 14F 13F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 8F 12F (seed 0) ∷ mkMerge 13F 5F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 15F 3F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 6F 2F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 7F 11F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 0F 4F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 3F 11F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 1F 9F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 1F 13F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 10F 2F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 14F 10F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 0F 12F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 8F 13F (seed 0) ∷ mkMerge 13F 7F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 15F 0F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 6F 3F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 0F 5F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 3F 9F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 4F 1F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 1F 11F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 1F 14F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 10F 0F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 9F 12F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 8F 2F (translate 1F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 8F 14F (seed 0) ∷ mkMerge 13F 6F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 15F 2F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 6F 0F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 7F 10F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 3F 8F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 4F 2F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 1F 10F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 1F 12F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 6F 11F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 5F 14F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 9F 4F (translate 2F 0F (0F ∷ []) 6) ∷ [] ) ∷ ( mkMerge 8F 15F (seed 0) ∷ mkMerge 13F 4F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 15F 1F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 6F 1F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 7F 9F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 0F 7F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 3F 10F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 4F 3F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 5F 12F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 11F 5F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 14F 9F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 11F 2F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 9F 0F (seed 0) ∷ mkMerge 15F 1F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 12F 11F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 7F 14F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 4F 3F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 1F 8F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 5F 12F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 3F 13F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 5F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 8F 6F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 7F 9F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 10F 13F (translate 2F 0F (0F ∷ []) 6) ∷ [] ) ∷ ( mkMerge 9F 1F (seed 0) ∷ mkMerge 15F 3F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 12F 8F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 7F 15F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 4F 0F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 1F 13F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 5F 13F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 2F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 8F 4F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 7F 11F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 14F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 2F 10F (translate 0F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 9F 2F (seed 0) ∷ mkMerge 15F 2F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 12F 10F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 7F 12F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 4F 2F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 1F 10F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 5F 14F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 3F 14F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 8F 5F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 11F 6F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 11F 0F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 13F 0F (translate 2F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 9F 3F (seed 0) ∷ mkMerge 15F 0F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 12F 9F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 7F 13F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 4F 1F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 1F 11F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 1F 14F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 5F 15F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 7F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 8F 7F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 10F 15F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 3F 6F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 9F 4F (seed 0) ∷ mkMerge 15F 9F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 12F 7F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 7F 10F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 1F 12F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 5F 8F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 3F 5F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 2F 9F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 8F 14F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 11F 13F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 11F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 0F 11F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 9F 5F (seed 0) ∷ mkMerge 15F 11F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 12F 4F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 7F 11F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 1F 13F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 1F 5F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 3F 7F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 2F 10F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 8F 12F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 8F 0F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 14F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 6F 2F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 9F 6F (seed 0) ∷ mkMerge 15F 10F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 12F 6F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 7F 8F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 4F 14F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 1F 14F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 5F 10F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 3F 6F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 8F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 8F 13F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 10F 0F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 11F 14F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 9F 7F (seed 0) ∷ mkMerge 15F 8F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 12F 5F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 4F 13F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 1F 15F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 1F 6F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 5F 11F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 3F 4F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 11F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 7F 0F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 10F 3F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 9F 14F (translate 2F 0F (0F ∷ []) 1) ∷ [] ) ∷ ( mkMerge 9F 8F (seed 0) ∷ mkMerge 15F 13F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 12F 15F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 7F 6F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 4F 7F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 1F 0F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 1F 3F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 5F 4F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 1F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 8F 10F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 8F 11F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 15F 14F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ [] ∷ ( mkMerge 9F 10F (seed 0) ∷ mkMerge 15F 14F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 12F 14F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 7F 4F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 4F 6F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 1F 2F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 1F 0F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 5F 6F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 3F 2F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 8F 9F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 8F 11F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 12F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 9F 11F (seed 0) ∷ mkMerge 15F 12F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 12F 13F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 7F 5F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 4F 5F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 1F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 1F 2F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 3F 0F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 8F 11F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 10F 11F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 13F 14F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 6F 5F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 9F 12F (seed 0) ∷ mkMerge 15F 5F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 12F 3F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 7F 2F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 4F 11F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 1F 4F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 5F 0F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 2F 13F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 8F 2F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 5F 10F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 11F 14F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 6F 12F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 9F 13F (seed 0) ∷ mkMerge 15F 7F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 12F 0F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 7F 3F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 4F 8F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 1F 5F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 1F 9F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 3F 11F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 14F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 8F 0F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 10F 6F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 2F 6F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 9F 14F (seed 0) ∷ mkMerge 15F 6F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 12F 2F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 7F 0F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 4F 10F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 1F 6F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 1F 8F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 5F 2F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 3F 10F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 5F 11F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 7F 14F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 3F 13F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 9F 15F (seed 0) ∷ mkMerge 15F 4F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 12F 1F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 7F 1F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 1F 10F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 3F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 3F 8F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 2F 15F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 3F 14F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 11F 0F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 11F 13F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 13F 6F (translate 2F 0F (0F ∷ []) 4) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 10F 0F (seed 0) ∷ mkMerge 14F 1F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 14F 11F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 4F 14F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 6F 3F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 2F 8F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 0F 15F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 6F 12F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 13F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 0F 5F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 9F 6F (translate 0F 0F (0F ∷ []) 6) ∷ mkMerge 7F 2F (translate 1F 0F (0F ∷ []) 7) ∷ [] ) ∷ ( mkMerge 10F 1F (seed 0) ∷ mkMerge 14F 3F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 14F 8F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 4F 15F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 6F 0F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 2F 9F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 0F 13F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 2F 15F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 7F 1F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 6F 11F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 12F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 8F (translate 1F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 10F 2F (seed 0) ∷ mkMerge 14F 2F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 4F 12F (translate 2F 0F (0F ∷ []) 1) ∷ mkMerge 6F 2F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 0F 12F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 9F 5F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 7F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 8F 12F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 1F 5F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 11F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 15F 11F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 9F 13F (translate 2F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 10F 3F (seed 0) ∷ mkMerge 14F 0F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 14F 9F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 4F 13F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 6F 1F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 2F 11F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 6F 15F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 2F 12F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 0F 7F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 6F 8F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 13F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 12F 5F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 10F 4F (seed 0) ∷ mkMerge 14F 9F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 14F 7F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 6F 15F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 2F 12F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 0F 7F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 6F 8F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 2F 5F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 6F 1F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 11F 5F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 13F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 10F 5F (seed 0) ∷ mkMerge 14F 11F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 14F 4F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 6F 12F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 2F 13F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 0F 5F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 6F 9F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 2F 7F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 6F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 8F 2F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 1F 11F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 10F 15F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 10F 6F (seed 0) ∷ mkMerge 14F 10F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 4F 8F (translate 2F 0F (0F ∷ []) 1) ∷ mkMerge 2F 14F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 0F 4F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 9F 13F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 7F 15F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 12F 0F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 1F 9F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 11F 7F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 7F 3F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 5F 1F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 10F 7F (seed 0) ∷ mkMerge 14F 8F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 14F 5F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 4F 9F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 6F 13F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 2F 15F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 0F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 6F 11F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 4F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 7F 12F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 8F 3F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 10F 1F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 10F 8F (seed 0) ∷ mkMerge 14F 13F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 14F 15F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 4F 6F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 6F 7F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 2F 0F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 0F 3F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 2F 1F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 9F 10F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 6F 5F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 11F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 12F 14F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 10F 9F (seed 0) ∷ mkMerge 14F 15F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 14F 12F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 4F 7F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 6F 4F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 2F 1F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 0F 1F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 6F 5F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 3F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 9F 8F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 11F 8F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 12F 13F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ [] ∷ ( mkMerge 10F 11F (seed 0) ∷ mkMerge 14F 12F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 14F 13F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 4F 5F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 6F 5F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 2F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 0F 2F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 6F 7F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 9F 11F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 8F 11F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 1F 2F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 15F 12F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 10F 12F (seed 0) ∷ mkMerge 14F 5F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 14F 3F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 4F 2F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 6F 11F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 0F 11F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 2F 9F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 0F 13F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 7F 10F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 8F 5F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 1F 12F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 15F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 10F 13F (seed 0) ∷ mkMerge 14F 7F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 14F 0F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 4F 3F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 6F 8F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 2F 5F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 0F 9F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 6F 1F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 11F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 6F 15F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 4F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 12F 11F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 10F 14F (seed 0) ∷ mkMerge 14F 6F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 14F 2F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 4F 0F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 0F 8F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 0F 12F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 9F 1F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 7F 11F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 1F 13F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 11F 15F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 1F 5F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 11F 3F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 10F 15F (seed 0) ∷ mkMerge 14F 4F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 14F 1F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 6F 9F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 2F 7F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 0F 10F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 6F 3F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 2F 8F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 6F 12F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 5F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 11F 14F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 8F 13F (translate 2F 0F (0F ∷ []) 4) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 11F 0F (seed 0) ∷ mkMerge 12F 1F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 13F 11F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 5F 14F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 3F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 3F 8F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 2F 15F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 7F 12F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 11F 6F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 4F 2F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 4F 9F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 10F 1F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 11F 1F (seed 0) ∷ mkMerge 12F 3F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 13F 8F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 5F 15F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 0F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 3F 9F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 2F 13F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 7F 13F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 3F 6F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 11F 4F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 11F 14F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 10F 0F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 11F 2F (seed 0) ∷ mkMerge 12F 2F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 13F 10F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 5F 12F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 3F 10F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 7F 14F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 0F 14F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 3F 4F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 9F 14F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 8F 6F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 1F 6F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 15F 6F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 11F 3F (seed 0) ∷ mkMerge 12F 0F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 13F 9F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 5F 13F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 1F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 2F 14F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 7F 15F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 3F 7F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 4F 0F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 4F 8F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 6F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 10F 2F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 11F 4F (seed 0) ∷ mkMerge 12F 9F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 13F 7F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 5F 10F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 15F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 3F 12F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 2F 7F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 7F 8F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 0F 5F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 11F 14F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 4F 1F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 9F 6F (translate 2F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 11F 5F (seed 0) ∷ mkMerge 12F 11F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 13F 4F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 3F 13F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 2F 5F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 7F 9F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 0F 7F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 3F 10F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 8F 15F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 1F 8F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 9F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 6F 1F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 11F 6F (seed 0) ∷ mkMerge 12F 10F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 13F 6F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 5F 8F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 14F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 3F 14F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 2F 4F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 7F 10F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 0F 6F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 4F 15F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 9F 2F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 1F 10F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 11F 7F (seed 0) ∷ mkMerge 12F 8F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 13F 5F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 5F 9F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 3F 15F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 2F 6F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 0F 4F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 3F 11F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 4F 12F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 9F 1F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 10F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 14F 10F (translate 2F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 11F 8F (seed 0) ∷ mkMerge 12F 13F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 13F 15F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 5F 6F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 7F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 3F 0F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 2F 3F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 7F 4F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 0F 1F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 11F 10F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 11F 9F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 13F 14F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 11F 9F (seed 0) ∷ mkMerge 12F 15F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 13F 12F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 5F 7F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 4F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 3F 1F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 2F 1F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 0F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 11F 8F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 11F 10F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 14F 13F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 6F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 11F 10F (seed 0) ∷ mkMerge 12F 14F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 13F 14F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 5F 4F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 6F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 3F 2F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 2F 0F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 7F 6F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 11F 9F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 11F 8F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 2F 1F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 12F 15F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ [] ∷ ( mkMerge 11F 12F (seed 0) ∷ mkMerge 12F 5F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 13F 3F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 5F 2F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 3F 4F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 7F 0F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 0F 9F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 4F 10F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 8F 1F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 9F 14F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 1F 15F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 15F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 11F 13F (seed 0) ∷ mkMerge 12F 7F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 13F 0F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 5F 3F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 8F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 2F 9F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 7F 1F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 3F 14F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 4F 9F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 4F 15F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 11F 6F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 10F 12F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 11F 14F (seed 0) ∷ mkMerge 12F 6F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 13F 2F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 5F 0F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 10F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 3F 6F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 2F 8F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 7F 2F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 11F 1F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 4F 11F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 9F 6F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 15F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 11F 15F (seed 0) ∷ mkMerge 12F 4F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 13F 1F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 5F 1F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 9F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 3F 7F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 2F 10F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 0F 8F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 3F 15F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 4F 8F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 2F 14F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 14F 6F (translate 2F 0F (0F ∷ []) 3) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 12F 0F (seed 0) ∷ mkMerge 5F 1F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 3F 11F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 2F 14F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 4F 8F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 11F 15F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 9F 13F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 5F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 2F 6F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 10F 2F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 7F 15F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 12F 4F (translate 0F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 12F 1F (seed 0) ∷ mkMerge 5F 3F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 3F 8F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 2F 15F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 11F 0F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 4F 9F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 11F 13F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 9F 15F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 13F 6F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 10F 1F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 5F 14F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 7F 12F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 12F 2F (seed 0) ∷ mkMerge 5F 2F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 3F 10F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 11F 2F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 4F 10F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 0F 14F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 9F 14F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 4F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 7F 14F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 1F 6F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 15F 6F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 8F 6F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 12F 3F (seed 0) ∷ mkMerge 5F 0F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 3F 9F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 2F 13F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 11F 1F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 4F 11F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 11F 14F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 0F 15F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 13F 7F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 10F 0F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 13F 8F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 12F 6F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 12F 4F (seed 0) ∷ mkMerge 5F 9F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 3F 7F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 2F 10F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 11F 15F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 11F 7F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 0F 8F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 13F 9F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 2F 14F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 13F 1F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 12F 8F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 14F 6F (translate 2F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 12F 5F (seed 0) ∷ mkMerge 5F 11F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 3F 4F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 2F 11F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 4F 13F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 0F 9F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 9F 7F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 10F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 1F 15F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 7F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 15F 8F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 8F (translate 0F 0F (0F ∷ []) 1) ∷ [] ) ∷ ( mkMerge 12F 6F (seed 0) ∷ mkMerge 5F 10F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 3F 6F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 2F 8F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 11F 14F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 4F 14F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 0F 10F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 9F 6F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 13F 8F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 10F 15F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 7F 2F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 1F 14F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 12F 7F (seed 0) ∷ mkMerge 5F 8F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 3F 5F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 2F 9F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 11F 13F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 4F 15F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 11F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 0F 11F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 9F 4F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 10F 12F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 7F 1F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 5F (translate 2F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 12F 8F (seed 0) ∷ mkMerge 5F 13F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 3F 15F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 2F 6F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 11F 7F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 4F 0F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 11F 3F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 9F 1F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 13F 1F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 2F 10F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 10F 14F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 12F 0F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 12F 9F (seed 0) ∷ mkMerge 5F 15F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 3F 12F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 2F 7F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 11F 4F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 4F 1F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 0F 5F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 13F 2F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 2F 8F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 10F 5F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 14F 11F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 12F 6F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 12F 10F (seed 0) ∷ mkMerge 5F 14F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 3F 14F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 2F 4F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 11F 6F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 11F 0F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 9F 2F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 0F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 10F 7F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 8F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 12F 1F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 15F 2F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 12F 11F (seed 0) ∷ mkMerge 5F 12F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 3F 13F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 2F 5F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 4F 3F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 0F 7F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 9F 0F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 10F 4F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 1F 8F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 14F 9F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 15F 1F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 15F 6F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ [] ∷ ( mkMerge 12F 13F (seed 0) ∷ mkMerge 5F 7F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 3F 0F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 2F 3F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 11F 8F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 4F 5F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 11F 9F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 0F 1F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 13F 14F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 10F 9F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 13F 15F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 5F 6F (translate 2F 0F (0F ∷ []) 6) ∷ [] ) ∷ ( mkMerge 12F 14F (seed 0) ∷ mkMerge 5F 6F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 3F 2F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 2F 0F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 11F 10F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 4F 6F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 11F 8F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 9F 10F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 13F 12F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 2F 1F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 7F 6F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 13F 15F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 12F 15F (seed 0) ∷ mkMerge 5F 4F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 3F 1F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 2F 1F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 11F 9F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 4F 7F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 11F 10F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 0F 3F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 9F 8F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 13F 15F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 12F 14F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 7F 6F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 13F 0F (seed 0) ∷ mkMerge 7F 1F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 0F 11F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 3F 14F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 8F 3F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 5F 8F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 9F 15F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 1F 12F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 0F 6F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 9F 2F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 4F 15F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 1F 10F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 13F 1F (seed 0) ∷ mkMerge 7F 3F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 0F 8F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 3F 15F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 9F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 9F 13F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 11F 15F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 14F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 0F 4F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 4F 12F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 6F 10F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 2F 6F (translate 1F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 13F 2F (seed 0) ∷ mkMerge 7F 2F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 0F 10F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 3F 12F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 8F 2F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 5F 10F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 9F 12F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 1F 14F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 11F 14F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 14F 4F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 15F 10F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 6F 12F (translate 2F 0F (0F ∷ []) 6) ∷ [] ) ∷ ( mkMerge 13F 3F (seed 0) ∷ mkMerge 7F 0F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 0F 9F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 8F 1F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 5F 11F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 9F 14F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 1F 15F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 11F 12F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 6F 15F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 4F 13F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 12F 2F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 10F 4F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 13F 4F (seed 0) ∷ mkMerge 7F 9F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 0F 7F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 3F 10F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 8F 15F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 5F 12F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 1F 8F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 11F 5F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 9F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 6F 1F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 4F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 11F 2F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 13F 5F (seed 0) ∷ mkMerge 7F 11F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 0F 4F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 3F 11F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 8F 12F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 9F 5F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 1F 9F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 14F 10F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 0F 12F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 15F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 6F 2F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 6F 14F (translate 0F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 13F 6F (seed 0) ∷ mkMerge 7F 10F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 0F 6F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 3F 8F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 8F 14F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 5F 14F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 9F 4F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 1F 10F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 11F 6F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 9F 15F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 15F 2F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 12F 7F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 13F 7F (seed 0) ∷ mkMerge 7F 8F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 0F 5F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 3F 9F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 15F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 9F 6F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 1F 11F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 11F 4F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 11F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 9F 12F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 15F 10F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 2F 13F (translate 1F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 13F 8F (seed 0) ∷ mkMerge 7F 13F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 0F 15F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 3F 6F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 5F 0F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 9F 3F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 1F 4F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 11F 1F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 1F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 0F 10F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 12F 9F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 2F 8F (translate 1F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 13F 9F (seed 0) ∷ mkMerge 7F 15F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 0F 12F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 3F 7F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 8F 4F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 5F 1F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 9F 1F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 11F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 2F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 0F 8F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 6F 10F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 6F 2F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 13F 10F (seed 0) ∷ mkMerge 7F 14F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 0F 14F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 3F 4F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 8F 6F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 5F 2F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 9F 0F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 1F 6F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 11F 2F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 15F 6F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 4F 10F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 11F 12F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 13F 11F (seed 0) ∷ mkMerge 7F 12F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 0F 13F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 3F 5F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 8F 5F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 9F 2F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 1F 7F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 14F 3F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 9F 4F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 15F 4F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 6F 11F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 12F 10F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 13F 12F (seed 0) ∷ mkMerge 7F 5F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 0F 3F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 3F 2F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 8F 11F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 5F 4F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 9F 11F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 1F 0F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 14F 13F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 9F 10F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 15F 13F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 6F 5F (translate 2F 0F (0F ∷ []) 6) ∷ [] ) ∷ [] ∷ ( mkMerge 13F 14F (seed 0) ∷ mkMerge 7F 6F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 0F 2F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 3F 0F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 8F 10F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 5F 6F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 9F 8F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 1F 2F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 11F 10F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 14F 12F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 15F 14F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 6F 4F (translate 2F 0F (0F ∷ []) 6) ∷ [] ) ∷ ( mkMerge 13F 15F (seed 0) ∷ mkMerge 7F 4F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 0F 1F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 3F 1F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 8F 9F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 5F 7F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 9F 10F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 11F 8F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 15F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 15F 12F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 6F 7F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 2F 1F (translate 1F 0F (0F ∷ []) 2) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 14F 0F (seed 0) ∷ mkMerge 6F 1F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 2F 11F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 10F 3F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 6F 8F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 8F 15F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 2F 12F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 10F 13F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 12F 5F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 14F 9F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 4F 13F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 14F 7F (translate 0F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 14F 1F (seed 0) ∷ mkMerge 6F 3F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 2F 8F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 0F 15F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 10F 0F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 6F 9F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 8F 13F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 12F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 1F 4F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 11F 1F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 8F 7F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 5F 10F (translate 0F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 14F 2F (seed 0) ∷ mkMerge 6F 2F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 2F 10F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 0F 12F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 8F 12F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 12F 4F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 1F 5F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 11F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 5F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 15F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 9F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 3F 7F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 14F 3F (seed 0) ∷ mkMerge 6F 0F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 2F 9F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 0F 13F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 10F 1F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 6F 11F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 8F 14F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 2F 15F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 10F 12F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 12F 7F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 4F 15F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 8F 5F (translate 2F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 14F 4F (seed 0) ∷ mkMerge 6F 9F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 2F 7F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 0F 10F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 10F 15F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 6F 12F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 8F 7F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 10F 5F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 1F 14F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 11F 14F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 6F 3F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 13F 8F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 14F 5F (seed 0) ∷ mkMerge 6F 11F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 2F 4F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 0F 11F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 10F 12F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 6F 13F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 8F 5F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 2F 9F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 10F 7F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 1F 12F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 14F 3F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 15F 4F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 14F 6F (seed 0) ∷ mkMerge 6F 10F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 2F 6F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 0F 8F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 8F 4F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 12F 8F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 1F 13F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 11F 15F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 9F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 15F 7F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 13F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 3F 15F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 14F 7F (seed 0) ∷ mkMerge 6F 8F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 2F 5F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 0F 9F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 10F 13F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 6F 15F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 2F 11F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 10F 4F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 12F 11F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 1F 15F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 14F 0F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 4F 3F (translate 2F 0F (0F ∷ []) 6) ∷ [] ) ∷ ( mkMerge 14F 8F (seed 0) ∷ mkMerge 6F 13F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 2F 15F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 0F 6F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 10F 7F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 8F 3F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 2F 4F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 10F 1F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 12F 1F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 11F 6F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 14F 5F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 4F 9F (translate 2F 0F (0F ∷ []) 6) ∷ [] ) ∷ ( mkMerge 14F 9F (seed 0) ∷ mkMerge 6F 15F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 2F 12F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 0F 7F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 10F 4F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 6F 1F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 8F 1F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 2F 5F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 10F 3F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 11F 5F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 14F 7F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 13F 3F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 14F 10F (seed 0) ∷ mkMerge 6F 14F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 2F 14F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 0F 4F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 8F 0F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 12F 0F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 1F 9F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 11F 7F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 13F 1F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 15F 11F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 1F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 3F 11F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 14F 11F (seed 0) ∷ mkMerge 6F 12F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 2F 13F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 0F 5F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 10F 5F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 6F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 8F 2F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 2F 7F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 1F 11F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 11F 4F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 6F 9F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 15F 10F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 14F 12F (seed 0) ∷ mkMerge 6F 5F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 2F 3F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 0F 2F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 10F 11F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 6F 4F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 8F 11F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 10F 9F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 12F 13F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 1F 2F (translate 0F 0F (0F ∷ []) 5) ∷ mkMerge 6F 7F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 15F 13F (translate 1F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 14F 13F (seed 0) ∷ mkMerge 6F 7F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 2F 0F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 0F 3F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 10F 8F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 6F 5F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 8F 9F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 2F 1F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 10F 11F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 12F 14F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 14F 15F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 4F 6F (translate 2F 0F (0F ∷ []) 6) ∷ [] ) ∷ [] ∷ ( mkMerge 14F 15F (seed 0) ∷ mkMerge 6F 4F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 2F 1F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 0F 1F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 10F 9F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 6F 7F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 8F 10F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 2F 3F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 12F 15F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 11F 8F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 6F 5F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 13F 14F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 15F 0F (seed 0) ∷ mkMerge 4F 1F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 1F 11F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 1F 14F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 9F 3F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 7F 8F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 10F 15F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 3F 12F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 8F 13F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 15F 5F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 3F 6F (translate 0F 0F (0F ∷ []) 6) ∷ mkMerge 8F 2F (translate 1F 0F (0F ∷ []) 7) ∷ [] ) ∷ ( mkMerge 15F 1F (seed 0) ∷ mkMerge 4F 3F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 1F 8F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 9F 0F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 7F 9F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 10F 13F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 3F 13F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 15F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 12F 11F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 7F 14F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 5F 12F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 2F 5F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 15F 2F (seed 0) ∷ mkMerge 4F 2F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 1F 10F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 1F 12F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 9F 2F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 7F 10F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 3F 14F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 8F 14F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 3F 5F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 0F 6F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 13F 0F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 0F 11F (translate 0F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 15F 3F (seed 0) ∷ mkMerge 4F 0F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 1F 9F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 1F 13F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 7F 11F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 10F 14F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 8F 12F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 15F 7F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 8F 0F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 13F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 6F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 14F 2F (translate 1F 0F (0F ∷ []) 5) ∷ [] ) ∷ ( mkMerge 15F 4F (seed 0) ∷ mkMerge 4F 9F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 1F 7F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 1F 10F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 7F 12F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 3F 8F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 8F 5F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 3F 14F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 9F 2F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 0F 13F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 13F 6F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 13F 11F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 15F 5F (seed 0) ∷ mkMerge 4F 11F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 1F 4F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 9F 12F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 7F 13F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 10F 5F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 3F 9F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 8F 7F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 7F 2F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 5F 0F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 11F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 6F 9F (translate 2F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 15F 6F (seed 0) ∷ mkMerge 4F 10F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 1F 6F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 1F 8F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 9F 14F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 7F 14F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 3F 10F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 3F 13F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 12F 2F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 7F 0F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 5F 2F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 11F (translate 1F 0F (0F ∷ []) 1) ∷ [] ) ∷ ( mkMerge 15F 7F (seed 0) ∷ mkMerge 4F 8F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 1F 5F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 1F 9F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 9F 13F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 10F 6F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 3F 11F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 15F 11F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 8F 12F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 12F 0F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 10F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 6F 2F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 15F 8F (seed 0) ∷ mkMerge 4F 13F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 1F 15F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 1F 6F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 9F 7F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 7F 0F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 10F 3F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 3F 4F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 12F 5F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 5F 11F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 9F 14F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 2F 11F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 15F 9F (seed 0) ∷ mkMerge 4F 15F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 1F 12F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 1F 7F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 10F 1F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 3F 5F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 8F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 15F 2F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 14F 3F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 0F 11F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 13F 11F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 6F 13F (translate 2F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 15F 10F (seed 0) ∷ mkMerge 4F 14F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 1F 14F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 9F 6F (translate 0F 0F (0F ∷ []) 1) ∷ mkMerge 7F 2F (translate 1F 0F (0F ∷ []) 2) ∷ mkMerge 10F 0F (translate 2F 0F (0F ∷ []) 3) ∷ mkMerge 3F 6F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 8F 2F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 12F 6F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 5F 10F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 11F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 13F 8F (translate 2F 0F (0F ∷ []) 4) ∷ [] ) ∷ ( mkMerge 15F 11F (seed 0) ∷ mkMerge 4F 12F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 1F 13F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 1F 5F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 9F 5F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 7F 3F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 10F 2F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 8F 0F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 15F 3F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 8F 4F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 14F 2F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 14F (translate 2F 0F (0F ∷ []) 3) ∷ [] ) ∷ ( mkMerge 15F 12F (seed 0) ∷ mkMerge 4F 5F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 1F 3F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 1F 2F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 9F 11F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 7F 4F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 10F 11F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 3F 0F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 8F 9F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 15F 13F (translate 2F 0F (0F ∷ []) 6) ∷ mkMerge 14F 12F (translate 0F 0F (0F ∷ []) 3) ∷ mkMerge 6F 7F (translate 2F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 15F 13F (seed 0) ∷ mkMerge 4F 7F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 1F 0F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 1F 3F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 9F 8F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 7F 5F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 10F 9F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 8F 11F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 15F 14F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 12F 15F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 7F 6F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 1F 2F (translate 1F 0F (0F ∷ []) 2) ∷ [] ) ∷ ( mkMerge 15F 14F (seed 0) ∷ mkMerge 4F 6F (translate 0F 0F (0F ∷ []) 0) ∷ mkMerge 1F 2F (translate 1F 0F (0F ∷ []) 1) ∷ mkMerge 1F 0F (translate 2F 0F (0F ∷ []) 2) ∷ mkMerge 9F 10F (translate 0F 0F (0F ∷ []) 2) ∷ mkMerge 7F 6F (translate 1F 0F (0F ∷ []) 3) ∷ mkMerge 10F 8F (translate 2F 0F (0F ∷ []) 4) ∷ mkMerge 3F 2F (translate 0F 0F (0F ∷ []) 4) ∷ mkMerge 15F 12F (translate 2F 0F (0F ∷ []) 5) ∷ mkMerge 8F 11F (translate 1F 0F (0F ∷ []) 5) ∷ mkMerge 5F 6F (translate 1F 0F (0F ∷ []) 4) ∷ mkMerge 14F 13F (translate 0F 0F (0F ∷ []) 4) ∷ [] ) ∷ [] ∷ [] ) ∷ [] joinTrᵛ : Vec (Vec (Trace 16 3 arOf) 7) 7 joinTrᵛ = ( [] ∷ ( mkMerge 1F 0F (seed 0) ∷ mkMerge 2F 0F (seed 1) ∷ mkMerge 3F 0F (seed 2) ∷ mkMerge 5F 4F (seed 3) ∷ mkMerge 6F 4F (seed 4) ∷ mkMerge 7F 4F (seed 5) ∷ mkMerge 9F 8F (seed 6) ∷ mkMerge 10F 8F (seed 7) ∷ mkMerge 11F 8F (seed 8) ∷ mkMerge 13F 12F (seed 9) ∷ mkMerge 14F 12F (seed 10) ∷ mkMerge 15F 12F (seed 11) ∷ [] ) ∷ ( mkMerge 4F 0F (seed 0) ∷ mkMerge 5F 1F (seed 1) ∷ mkMerge 6F 2F (seed 2) ∷ mkMerge 7F 3F (seed 3) ∷ mkMerge 8F 0F (seed 4) ∷ mkMerge 9F 1F (seed 5) ∷ mkMerge 10F 2F (seed 6) ∷ mkMerge 11F 3F (seed 7) ∷ mkMerge 12F 0F (seed 8) ∷ mkMerge 13F 1F (seed 9) ∷ mkMerge 14F 2F (seed 10) ∷ mkMerge 15F 3F (seed 11) ∷ [] ) ∷ ( mkMerge 4F 1F (seed 0) ∷ mkMerge 5F 0F (seed 1) ∷ mkMerge 6F 3F (seed 2) ∷ mkMerge 7F 2F (seed 3) ∷ mkMerge 8F 2F (seed 4) ∷ mkMerge 9F 3F (seed 5) ∷ mkMerge 10F 0F (seed 6) ∷ mkMerge 11F 1F (seed 7) ∷ mkMerge 12F 3F (seed 8) ∷ mkMerge 13F 2F (seed 9) ∷ mkMerge 14F 1F (seed 10) ∷ mkMerge 15F 0F (seed 11) ∷ [] ) ∷ ( mkMerge 4F 2F (seed 0) ∷ mkMerge 5F 3F (seed 1) ∷ mkMerge 6F 0F (seed 2) ∷ mkMerge 7F 1F (seed 3) ∷ mkMerge 8F 3F (seed 4) ∷ mkMerge 9F 2F (seed 5) ∷ mkMerge 10F 1F (seed 6) ∷ mkMerge 11F 0F (seed 7) ∷ mkMerge 12F 1F (seed 8) ∷ mkMerge 13F 0F (seed 9) ∷ mkMerge 14F 3F (seed 10) ∷ mkMerge 15F 2F (seed 11) ∷ [] ) ∷ ( mkMerge 4F 3F (seed 0) ∷ mkMerge 5F 2F (seed 1) ∷ mkMerge 6F 1F (seed 2) ∷ mkMerge 7F 0F (seed 3) ∷ mkMerge 8F 1F (seed 4) ∷ mkMerge 9F 0F (seed 5) ∷ mkMerge 10F 3F (seed 6) ∷ mkMerge 11F 2F (seed 7) ∷ mkMerge 12F 2F (seed 8) ∷ mkMerge 13F 3F (seed 9) ∷ mkMerge 14F 0F (seed 10) ∷ mkMerge 15F 1F (seed 11) ∷ [] ) ∷ ( mkMerge 1F 0F (seed 0) ∷ mkMerge 2F 0F (seed 1) ∷ mkMerge 3F 0F (seed 2) ∷ mkMerge 4F 0F (seed 3) ∷ mkMerge 5F 0F (seed 4) ∷ mkMerge 6F 0F (seed 5) ∷ mkMerge 7F 0F (seed 6) ∷ mkMerge 8F 0F (seed 7) ∷ mkMerge 9F 0F (seed 8) ∷ mkMerge 10F 0F (seed 9) ∷ mkMerge 11F 0F (seed 10) ∷ mkMerge 12F 0F (seed 11) ∷ mkMerge 13F 0F (seed 12) ∷ mkMerge 14F 0F (seed 13) ∷ mkMerge 15F 0F (seed 14) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 1F 0F (seed 0) ∷ mkMerge 2F 0F (seed 1) ∷ mkMerge 3F 0F (seed 2) ∷ mkMerge 5F 4F (seed 3) ∷ mkMerge 6F 4F (seed 4) ∷ mkMerge 7F 4F (seed 5) ∷ mkMerge 9F 8F (seed 6) ∷ mkMerge 10F 8F (seed 7) ∷ mkMerge 11F 8F (seed 8) ∷ mkMerge 13F 12F (seed 9) ∷ mkMerge 14F 12F (seed 10) ∷ mkMerge 15F 12F (seed 11) ∷ [] ) ∷ ( mkMerge 1F 0F (seed 0) ∷ mkMerge 2F 0F (seed 1) ∷ mkMerge 3F 0F (seed 2) ∷ mkMerge 5F 4F (seed 3) ∷ mkMerge 6F 4F (seed 4) ∷ mkMerge 7F 4F (seed 5) ∷ mkMerge 9F 8F (seed 6) ∷ mkMerge 10F 8F (seed 7) ∷ mkMerge 11F 8F (seed 8) ∷ mkMerge 13F 12F (seed 9) ∷ mkMerge 14F 12F (seed 10) ∷ mkMerge 15F 12F (seed 11) ∷ [] ) ∷ ( mkMerge 1F 0F (seed 0) ∷ mkMerge 2F 0F (seed 1) ∷ mkMerge 3F 0F (seed 2) ∷ mkMerge 5F 4F (seed 3) ∷ mkMerge 6F 4F (seed 4) ∷ mkMerge 7F 4F (seed 5) ∷ mkMerge 9F 8F (seed 6) ∷ mkMerge 10F 8F (seed 7) ∷ mkMerge 11F 8F (seed 8) ∷ mkMerge 13F 12F (seed 9) ∷ mkMerge 14F 12F (seed 10) ∷ mkMerge 15F 12F (seed 11) ∷ mkMerge 4F 0F (seed 12) ∷ mkMerge 8F 0F (seed 16) ∷ mkMerge 12F 0F (seed 20) ∷ [] ) ∷ ( mkMerge 1F 0F (seed 0) ∷ mkMerge 2F 0F (seed 1) ∷ mkMerge 3F 0F (seed 2) ∷ mkMerge 5F 4F (seed 3) ∷ mkMerge 6F 4F (seed 4) ∷ mkMerge 7F 4F (seed 5) ∷ mkMerge 9F 8F (seed 6) ∷ mkMerge 10F 8F (seed 7) ∷ mkMerge 11F 8F (seed 8) ∷ mkMerge 13F 12F (seed 9) ∷ mkMerge 14F 12F (seed 10) ∷ mkMerge 15F 12F (seed 11) ∷ mkMerge 4F 1F (seed 12) ∷ mkMerge 8F 2F (seed 16) ∷ mkMerge 12F 3F (seed 20) ∷ [] ) ∷ ( mkMerge 1F 0F (seed 0) ∷ mkMerge 2F 0F (seed 1) ∷ mkMerge 3F 0F (seed 2) ∷ mkMerge 5F 4F (seed 3) ∷ mkMerge 6F 4F (seed 4) ∷ mkMerge 7F 4F (seed 5) ∷ mkMerge 9F 8F (seed 6) ∷ mkMerge 10F 8F (seed 7) ∷ mkMerge 11F 8F (seed 8) ∷ mkMerge 13F 12F (seed 9) ∷ mkMerge 14F 12F (seed 10) ∷ mkMerge 15F 12F (seed 11) ∷ mkMerge 4F 2F (seed 12) ∷ mkMerge 8F 3F (seed 16) ∷ mkMerge 12F 1F (seed 20) ∷ [] ) ∷ ( mkMerge 1F 0F (seed 0) ∷ mkMerge 2F 0F (seed 1) ∷ mkMerge 3F 0F (seed 2) ∷ mkMerge 5F 4F (seed 3) ∷ mkMerge 6F 4F (seed 4) ∷ mkMerge 7F 4F (seed 5) ∷ mkMerge 9F 8F (seed 6) ∷ mkMerge 10F 8F (seed 7) ∷ mkMerge 11F 8F (seed 8) ∷ mkMerge 13F 12F (seed 9) ∷ mkMerge 14F 12F (seed 10) ∷ mkMerge 15F 12F (seed 11) ∷ mkMerge 4F 3F (seed 12) ∷ mkMerge 8F 1F (seed 16) ∷ mkMerge 12F 2F (seed 20) ∷ [] ) ∷ ( mkMerge 1F 0F (seed 0) ∷ mkMerge 2F 0F (seed 1) ∷ mkMerge 3F 0F (seed 2) ∷ mkMerge 5F 4F (seed 3) ∷ mkMerge 6F 4F (seed 4) ∷ mkMerge 7F 4F (seed 5) ∷ mkMerge 9F 8F (seed 6) ∷ mkMerge 10F 8F (seed 7) ∷ mkMerge 11F 8F (seed 8) ∷ mkMerge 13F 12F (seed 9) ∷ mkMerge 14F 12F (seed 10) ∷ mkMerge 15F 12F (seed 11) ∷ mkMerge 4F 0F (seed 15) ∷ mkMerge 8F 0F (seed 19) ∷ mkMerge 12F 0F (seed 23) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 4F 0F (seed 0) ∷ mkMerge 5F 1F (seed 1) ∷ mkMerge 6F 2F (seed 2) ∷ mkMerge 7F 3F (seed 3) ∷ mkMerge 8F 0F (seed 4) ∷ mkMerge 9F 1F (seed 5) ∷ mkMerge 10F 2F (seed 6) ∷ mkMerge 11F 3F (seed 7) ∷ mkMerge 12F 0F (seed 8) ∷ mkMerge 13F 1F (seed 9) ∷ mkMerge 14F 2F (seed 10) ∷ mkMerge 15F 3F (seed 11) ∷ [] ) ∷ ( mkMerge 4F 0F (seed 0) ∷ mkMerge 5F 1F (seed 1) ∷ mkMerge 6F 2F (seed 2) ∷ mkMerge 7F 3F (seed 3) ∷ mkMerge 8F 0F (seed 4) ∷ mkMerge 9F 1F (seed 5) ∷ mkMerge 10F 2F (seed 6) ∷ mkMerge 11F 3F (seed 7) ∷ mkMerge 12F 0F (seed 8) ∷ mkMerge 13F 1F (seed 9) ∷ mkMerge 14F 2F (seed 10) ∷ mkMerge 15F 3F (seed 11) ∷ mkMerge 1F 0F (seed 12) ∷ mkMerge 2F 0F (seed 13) ∷ mkMerge 3F 0F (seed 14) ∷ [] ) ∷ ( mkMerge 4F 0F (seed 0) ∷ mkMerge 5F 1F (seed 1) ∷ mkMerge 6F 2F (seed 2) ∷ mkMerge 7F 3F (seed 3) ∷ mkMerge 8F 0F (seed 4) ∷ mkMerge 9F 1F (seed 5) ∷ mkMerge 10F 2F (seed 6) ∷ mkMerge 11F 3F (seed 7) ∷ mkMerge 12F 0F (seed 8) ∷ mkMerge 13F 1F (seed 9) ∷ mkMerge 14F 2F (seed 10) ∷ mkMerge 15F 3F (seed 11) ∷ [] ) ∷ ( mkMerge 4F 0F (seed 0) ∷ mkMerge 5F 1F (seed 1) ∷ mkMerge 6F 2F (seed 2) ∷ mkMerge 7F 3F (seed 3) ∷ mkMerge 8F 0F (seed 4) ∷ mkMerge 9F 1F (seed 5) ∷ mkMerge 10F 2F (seed 6) ∷ mkMerge 11F 3F (seed 7) ∷ mkMerge 12F 0F (seed 8) ∷ mkMerge 13F 1F (seed 9) ∷ mkMerge 14F 2F (seed 10) ∷ mkMerge 15F 3F (seed 11) ∷ mkMerge 4F 1F (seed 12) ∷ mkMerge 6F 3F (seed 14) ∷ mkMerge 8F 2F (seed 16) ∷ [] ) ∷ ( mkMerge 4F 0F (seed 0) ∷ mkMerge 5F 1F (seed 1) ∷ mkMerge 6F 2F (seed 2) ∷ mkMerge 7F 3F (seed 3) ∷ mkMerge 8F 0F (seed 4) ∷ mkMerge 9F 1F (seed 5) ∷ mkMerge 10F 2F (seed 6) ∷ mkMerge 11F 3F (seed 7) ∷ mkMerge 12F 0F (seed 8) ∷ mkMerge 13F 1F (seed 9) ∷ mkMerge 14F 2F (seed 10) ∷ mkMerge 15F 3F (seed 11) ∷ mkMerge 4F 2F (seed 12) ∷ mkMerge 5F 3F (seed 13) ∷ mkMerge 8F 3F (seed 16) ∷ [] ) ∷ ( mkMerge 4F 0F (seed 0) ∷ mkMerge 5F 1F (seed 1) ∷ mkMerge 6F 2F (seed 2) ∷ mkMerge 7F 3F (seed 3) ∷ mkMerge 8F 0F (seed 4) ∷ mkMerge 9F 1F (seed 5) ∷ mkMerge 10F 2F (seed 6) ∷ mkMerge 11F 3F (seed 7) ∷ mkMerge 12F 0F (seed 8) ∷ mkMerge 13F 1F (seed 9) ∷ mkMerge 14F 2F (seed 10) ∷ mkMerge 15F 3F (seed 11) ∷ mkMerge 4F 3F (seed 12) ∷ mkMerge 5F 2F (seed 13) ∷ mkMerge 8F 1F (seed 16) ∷ [] ) ∷ ( mkMerge 4F 0F (seed 0) ∷ mkMerge 5F 1F (seed 1) ∷ mkMerge 6F 2F (seed 2) ∷ mkMerge 7F 3F (seed 3) ∷ mkMerge 8F 0F (seed 4) ∷ mkMerge 9F 1F (seed 5) ∷ mkMerge 10F 2F (seed 6) ∷ mkMerge 11F 3F (seed 7) ∷ mkMerge 12F 0F (seed 8) ∷ mkMerge 13F 1F (seed 9) ∷ mkMerge 14F 2F (seed 10) ∷ mkMerge 15F 3F (seed 11) ∷ mkMerge 1F 0F (seed 12) ∷ mkMerge 2F 0F (seed 13) ∷ mkMerge 3F 0F (seed 14) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 4F 1F (seed 0) ∷ mkMerge 5F 0F (seed 1) ∷ mkMerge 6F 3F (seed 2) ∷ mkMerge 7F 2F (seed 3) ∷ mkMerge 8F 2F (seed 4) ∷ mkMerge 9F 3F (seed 5) ∷ mkMerge 10F 0F (seed 6) ∷ mkMerge 11F 1F (seed 7) ∷ mkMerge 12F 3F (seed 8) ∷ mkMerge 13F 2F (seed 9) ∷ mkMerge 14F 1F (seed 10) ∷ mkMerge 15F 0F (seed 11) ∷ [] ) ∷ ( mkMerge 4F 1F (seed 0) ∷ mkMerge 5F 0F (seed 1) ∷ mkMerge 6F 3F (seed 2) ∷ mkMerge 7F 2F (seed 3) ∷ mkMerge 8F 2F (seed 4) ∷ mkMerge 9F 3F (seed 5) ∷ mkMerge 10F 0F (seed 6) ∷ mkMerge 11F 1F (seed 7) ∷ mkMerge 12F 3F (seed 8) ∷ mkMerge 13F 2F (seed 9) ∷ mkMerge 14F 1F (seed 10) ∷ mkMerge 15F 0F (seed 11) ∷ mkMerge 1F 0F (seed 12) ∷ mkMerge 2F 0F (seed 13) ∷ mkMerge 3F 0F (seed 14) ∷ [] ) ∷ ( mkMerge 4F 1F (seed 0) ∷ mkMerge 5F 0F (seed 1) ∷ mkMerge 6F 3F (seed 2) ∷ mkMerge 7F 2F (seed 3) ∷ mkMerge 8F 2F (seed 4) ∷ mkMerge 9F 3F (seed 5) ∷ mkMerge 10F 0F (seed 6) ∷ mkMerge 11F 1F (seed 7) ∷ mkMerge 12F 3F (seed 8) ∷ mkMerge 13F 2F (seed 9) ∷ mkMerge 14F 1F (seed 10) ∷ mkMerge 15F 0F (seed 11) ∷ mkMerge 4F 0F (seed 12) ∷ mkMerge 6F 2F (seed 14) ∷ mkMerge 8F 0F (seed 16) ∷ [] ) ∷ ( mkMerge 4F 1F (seed 0) ∷ mkMerge 5F 0F (seed 1) ∷ mkMerge 6F 3F (seed 2) ∷ mkMerge 7F 2F (seed 3) ∷ mkMerge 8F 2F (seed 4) ∷ mkMerge 9F 3F (seed 5) ∷ mkMerge 10F 0F (seed 6) ∷ mkMerge 11F 1F (seed 7) ∷ mkMerge 12F 3F (seed 8) ∷ mkMerge 13F 2F (seed 9) ∷ mkMerge 14F 1F (seed 10) ∷ mkMerge 15F 0F (seed 11) ∷ [] ) ∷ ( mkMerge 4F 1F (seed 0) ∷ mkMerge 5F 0F (seed 1) ∷ mkMerge 6F 3F (seed 2) ∷ mkMerge 7F 2F (seed 3) ∷ mkMerge 8F 2F (seed 4) ∷ mkMerge 9F 3F (seed 5) ∷ mkMerge 10F 0F (seed 6) ∷ mkMerge 11F 1F (seed 7) ∷ mkMerge 12F 3F (seed 8) ∷ mkMerge 13F 2F (seed 9) ∷ mkMerge 14F 1F (seed 10) ∷ mkMerge 15F 0F (seed 11) ∷ mkMerge 4F 2F (seed 12) ∷ mkMerge 5F 3F (seed 13) ∷ mkMerge 8F 3F (seed 16) ∷ [] ) ∷ ( mkMerge 4F 1F (seed 0) ∷ mkMerge 5F 0F (seed 1) ∷ mkMerge 6F 3F (seed 2) ∷ mkMerge 7F 2F (seed 3) ∷ mkMerge 8F 2F (seed 4) ∷ mkMerge 9F 3F (seed 5) ∷ mkMerge 10F 0F (seed 6) ∷ mkMerge 11F 1F (seed 7) ∷ mkMerge 12F 3F (seed 8) ∷ mkMerge 13F 2F (seed 9) ∷ mkMerge 14F 1F (seed 10) ∷ mkMerge 15F 0F (seed 11) ∷ mkMerge 4F 3F (seed 12) ∷ mkMerge 5F 2F (seed 13) ∷ mkMerge 8F 1F (seed 16) ∷ [] ) ∷ ( mkMerge 4F 1F (seed 0) ∷ mkMerge 5F 0F (seed 1) ∷ mkMerge 6F 3F (seed 2) ∷ mkMerge 7F 2F (seed 3) ∷ mkMerge 8F 2F (seed 4) ∷ mkMerge 9F 3F (seed 5) ∷ mkMerge 10F 0F (seed 6) ∷ mkMerge 11F 1F (seed 7) ∷ mkMerge 12F 3F (seed 8) ∷ mkMerge 13F 2F (seed 9) ∷ mkMerge 14F 1F (seed 10) ∷ mkMerge 15F 0F (seed 11) ∷ mkMerge 1F 0F (seed 12) ∷ mkMerge 2F 0F (seed 13) ∷ mkMerge 3F 0F (seed 14) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 4F 2F (seed 0) ∷ mkMerge 5F 3F (seed 1) ∷ mkMerge 6F 0F (seed 2) ∷ mkMerge 7F 1F (seed 3) ∷ mkMerge 8F 3F (seed 4) ∷ mkMerge 9F 2F (seed 5) ∷ mkMerge 10F 1F (seed 6) ∷ mkMerge 11F 0F (seed 7) ∷ mkMerge 12F 1F (seed 8) ∷ mkMerge 13F 0F (seed 9) ∷ mkMerge 14F 3F (seed 10) ∷ mkMerge 15F 2F (seed 11) ∷ [] ) ∷ ( mkMerge 4F 2F (seed 0) ∷ mkMerge 5F 3F (seed 1) ∷ mkMerge 6F 0F (seed 2) ∷ mkMerge 7F 1F (seed 3) ∷ mkMerge 8F 3F (seed 4) ∷ mkMerge 9F 2F (seed 5) ∷ mkMerge 10F 1F (seed 6) ∷ mkMerge 11F 0F (seed 7) ∷ mkMerge 12F 1F (seed 8) ∷ mkMerge 13F 0F (seed 9) ∷ mkMerge 14F 3F (seed 10) ∷ mkMerge 15F 2F (seed 11) ∷ mkMerge 1F 0F (seed 12) ∷ mkMerge 2F 0F (seed 13) ∷ mkMerge 3F 0F (seed 14) ∷ [] ) ∷ ( mkMerge 4F 2F (seed 0) ∷ mkMerge 5F 3F (seed 1) ∷ mkMerge 6F 0F (seed 2) ∷ mkMerge 7F 1F (seed 3) ∷ mkMerge 8F 3F (seed 4) ∷ mkMerge 9F 2F (seed 5) ∷ mkMerge 10F 1F (seed 6) ∷ mkMerge 11F 0F (seed 7) ∷ mkMerge 12F 1F (seed 8) ∷ mkMerge 13F 0F (seed 9) ∷ mkMerge 14F 3F (seed 10) ∷ mkMerge 15F 2F (seed 11) ∷ mkMerge 4F 0F (seed 12) ∷ mkMerge 5F 1F (seed 13) ∷ mkMerge 8F 0F (seed 16) ∷ [] ) ∷ ( mkMerge 4F 2F (seed 0) ∷ mkMerge 5F 3F (seed 1) ∷ mkMerge 6F 0F (seed 2) ∷ mkMerge 7F 1F (seed 3) ∷ mkMerge 8F 3F (seed 4) ∷ mkMerge 9F 2F (seed 5) ∷ mkMerge 10F 1F (seed 6) ∷ mkMerge 11F 0F (seed 7) ∷ mkMerge 12F 1F (seed 8) ∷ mkMerge 13F 0F (seed 9) ∷ mkMerge 14F 3F (seed 10) ∷ mkMerge 15F 2F (seed 11) ∷ mkMerge 4F 1F (seed 12) ∷ mkMerge 5F 0F (seed 13) ∷ mkMerge 8F 2F (seed 16) ∷ [] ) ∷ ( mkMerge 4F 2F (seed 0) ∷ mkMerge 5F 3F (seed 1) ∷ mkMerge 6F 0F (seed 2) ∷ mkMerge 7F 1F (seed 3) ∷ mkMerge 8F 3F (seed 4) ∷ mkMerge 9F 2F (seed 5) ∷ mkMerge 10F 1F (seed 6) ∷ mkMerge 11F 0F (seed 7) ∷ mkMerge 12F 1F (seed 8) ∷ mkMerge 13F 0F (seed 9) ∷ mkMerge 14F 3F (seed 10) ∷ mkMerge 15F 2F (seed 11) ∷ [] ) ∷ ( mkMerge 4F 2F (seed 0) ∷ mkMerge 5F 3F (seed 1) ∷ mkMerge 6F 0F (seed 2) ∷ mkMerge 7F 1F (seed 3) ∷ mkMerge 8F 3F (seed 4) ∷ mkMerge 9F 2F (seed 5) ∷ mkMerge 10F 1F (seed 6) ∷ mkMerge 11F 0F (seed 7) ∷ mkMerge 12F 1F (seed 8) ∷ mkMerge 13F 0F (seed 9) ∷ mkMerge 14F 3F (seed 10) ∷ mkMerge 15F 2F (seed 11) ∷ mkMerge 4F 3F (seed 12) ∷ mkMerge 6F 1F (seed 14) ∷ mkMerge 8F 1F (seed 16) ∷ [] ) ∷ ( mkMerge 4F 2F (seed 0) ∷ mkMerge 5F 3F (seed 1) ∷ mkMerge 6F 0F (seed 2) ∷ mkMerge 7F 1F (seed 3) ∷ mkMerge 8F 3F (seed 4) ∷ mkMerge 9F 2F (seed 5) ∷ mkMerge 10F 1F (seed 6) ∷ mkMerge 11F 0F (seed 7) ∷ mkMerge 12F 1F (seed 8) ∷ mkMerge 13F 0F (seed 9) ∷ mkMerge 14F 3F (seed 10) ∷ mkMerge 15F 2F (seed 11) ∷ mkMerge 1F 0F (seed 12) ∷ mkMerge 2F 0F (seed 13) ∷ mkMerge 3F 0F (seed 14) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 4F 3F (seed 0) ∷ mkMerge 5F 2F (seed 1) ∷ mkMerge 6F 1F (seed 2) ∷ mkMerge 7F 0F (seed 3) ∷ mkMerge 8F 1F (seed 4) ∷ mkMerge 9F 0F (seed 5) ∷ mkMerge 10F 3F (seed 6) ∷ mkMerge 11F 2F (seed 7) ∷ mkMerge 12F 2F (seed 8) ∷ mkMerge 13F 3F (seed 9) ∷ mkMerge 14F 0F (seed 10) ∷ mkMerge 15F 1F (seed 11) ∷ [] ) ∷ ( mkMerge 4F 3F (seed 0) ∷ mkMerge 5F 2F (seed 1) ∷ mkMerge 6F 1F (seed 2) ∷ mkMerge 7F 0F (seed 3) ∷ mkMerge 8F 1F (seed 4) ∷ mkMerge 9F 0F (seed 5) ∷ mkMerge 10F 3F (seed 6) ∷ mkMerge 11F 2F (seed 7) ∷ mkMerge 12F 2F (seed 8) ∷ mkMerge 13F 3F (seed 9) ∷ mkMerge 14F 0F (seed 10) ∷ mkMerge 15F 1F (seed 11) ∷ mkMerge 1F 0F (seed 12) ∷ mkMerge 2F 0F (seed 13) ∷ mkMerge 3F 0F (seed 14) ∷ [] ) ∷ ( mkMerge 4F 3F (seed 0) ∷ mkMerge 5F 2F (seed 1) ∷ mkMerge 6F 1F (seed 2) ∷ mkMerge 7F 0F (seed 3) ∷ mkMerge 8F 1F (seed 4) ∷ mkMerge 9F 0F (seed 5) ∷ mkMerge 10F 3F (seed 6) ∷ mkMerge 11F 2F (seed 7) ∷ mkMerge 12F 2F (seed 8) ∷ mkMerge 13F 3F (seed 9) ∷ mkMerge 14F 0F (seed 10) ∷ mkMerge 15F 1F (seed 11) ∷ mkMerge 4F 0F (seed 12) ∷ mkMerge 5F 1F (seed 13) ∷ mkMerge 8F 0F (seed 16) ∷ [] ) ∷ ( mkMerge 4F 3F (seed 0) ∷ mkMerge 5F 2F (seed 1) ∷ mkMerge 6F 1F (seed 2) ∷ mkMerge 7F 0F (seed 3) ∷ mkMerge 8F 1F (seed 4) ∷ mkMerge 9F 0F (seed 5) ∷ mkMerge 10F 3F (seed 6) ∷ mkMerge 11F 2F (seed 7) ∷ mkMerge 12F 2F (seed 8) ∷ mkMerge 13F 3F (seed 9) ∷ mkMerge 14F 0F (seed 10) ∷ mkMerge 15F 1F (seed 11) ∷ mkMerge 4F 1F (seed 12) ∷ mkMerge 5F 0F (seed 13) ∷ mkMerge 8F 2F (seed 16) ∷ [] ) ∷ ( mkMerge 4F 3F (seed 0) ∷ mkMerge 5F 2F (seed 1) ∷ mkMerge 6F 1F (seed 2) ∷ mkMerge 7F 0F (seed 3) ∷ mkMerge 8F 1F (seed 4) ∷ mkMerge 9F 0F (seed 5) ∷ mkMerge 10F 3F (seed 6) ∷ mkMerge 11F 2F (seed 7) ∷ mkMerge 12F 2F (seed 8) ∷ mkMerge 13F 3F (seed 9) ∷ mkMerge 14F 0F (seed 10) ∷ mkMerge 15F 1F (seed 11) ∷ mkMerge 4F 2F (seed 12) ∷ mkMerge 6F 0F (seed 14) ∷ mkMerge 8F 3F (seed 16) ∷ [] ) ∷ ( mkMerge 4F 3F (seed 0) ∷ mkMerge 5F 2F (seed 1) ∷ mkMerge 6F 1F (seed 2) ∷ mkMerge 7F 0F (seed 3) ∷ mkMerge 8F 1F (seed 4) ∷ mkMerge 9F 0F (seed 5) ∷ mkMerge 10F 3F (seed 6) ∷ mkMerge 11F 2F (seed 7) ∷ mkMerge 12F 2F (seed 8) ∷ mkMerge 13F 3F (seed 9) ∷ mkMerge 14F 0F (seed 10) ∷ mkMerge 15F 1F (seed 11) ∷ [] ) ∷ ( mkMerge 4F 3F (seed 0) ∷ mkMerge 5F 2F (seed 1) ∷ mkMerge 6F 1F (seed 2) ∷ mkMerge 7F 0F (seed 3) ∷ mkMerge 8F 1F (seed 4) ∷ mkMerge 9F 0F (seed 5) ∷ mkMerge 10F 3F (seed 6) ∷ mkMerge 11F 2F (seed 7) ∷ mkMerge 12F 2F (seed 8) ∷ mkMerge 13F 3F (seed 9) ∷ mkMerge 14F 0F (seed 10) ∷ mkMerge 15F 1F (seed 11) ∷ mkMerge 1F 0F (seed 12) ∷ mkMerge 2F 0F (seed 13) ∷ mkMerge 3F 0F (seed 14) ∷ [] ) ∷ [] ) ∷ ( ( mkMerge 1F 0F (seed 0) ∷ mkMerge 2F 0F (seed 1) ∷ mkMerge 3F 0F (seed 2) ∷ mkMerge 4F 0F (seed 3) ∷ mkMerge 5F 0F (seed 4) ∷ mkMerge 6F 0F (seed 5) ∷ mkMerge 7F 0F (seed 6) ∷ mkMerge 8F 0F (seed 7) ∷ mkMerge 9F 0F (seed 8) ∷ mkMerge 10F 0F (seed 9) ∷ mkMerge 11F 0F (seed 10) ∷ mkMerge 12F 0F (seed 11) ∷ mkMerge 13F 0F (seed 12) ∷ mkMerge 14F 0F (seed 13) ∷ mkMerge 15F 0F (seed 14) ∷ [] ) ∷ ( mkMerge 1F 0F (seed 0) ∷ mkMerge 2F 0F (seed 1) ∷ mkMerge 3F 0F (seed 2) ∷ mkMerge 4F 0F (seed 3) ∷ mkMerge 5F 0F (seed 4) ∷ mkMerge 6F 0F (seed 5) ∷ mkMerge 7F 0F (seed 6) ∷ mkMerge 8F 0F (seed 7) ∷ mkMerge 9F 0F (seed 8) ∷ mkMerge 10F 0F (seed 9) ∷ mkMerge 11F 0F (seed 10) ∷ mkMerge 12F 0F (seed 11) ∷ mkMerge 13F 0F (seed 12) ∷ mkMerge 14F 0F (seed 13) ∷ mkMerge 15F 0F (seed 14) ∷ [] ) ∷ ( mkMerge 1F 0F (seed 0) ∷ mkMerge 2F 0F (seed 1) ∷ mkMerge 3F 0F (seed 2) ∷ mkMerge 4F 0F (seed 3) ∷ mkMerge 5F 0F (seed 4) ∷ mkMerge 6F 0F (seed 5) ∷ mkMerge 7F 0F (seed 6) ∷ mkMerge 8F 0F (seed 7) ∷ mkMerge 9F 0F (seed 8) ∷ mkMerge 10F 0F (seed 9) ∷ mkMerge 11F 0F (seed 10) ∷ mkMerge 12F 0F (seed 11) ∷ mkMerge 13F 0F (seed 12) ∷ mkMerge 14F 0F (seed 13) ∷ mkMerge 15F 0F (seed 14) ∷ [] ) ∷ ( mkMerge 1F 0F (seed 0) ∷ mkMerge 2F 0F (seed 1) ∷ mkMerge 3F 0F (seed 2) ∷ mkMerge 4F 0F (seed 3) ∷ mkMerge 5F 0F (seed 4) ∷ mkMerge 6F 0F (seed 5) ∷ mkMerge 7F 0F (seed 6) ∷ mkMerge 8F 0F (seed 7) ∷ mkMerge 9F 0F (seed 8) ∷ mkMerge 10F 0F (seed 9) ∷ mkMerge 11F 0F (seed 10) ∷ mkMerge 12F 0F (seed 11) ∷ mkMerge 13F 0F (seed 12) ∷ mkMerge 14F 0F (seed 13) ∷ mkMerge 15F 0F (seed 14) ∷ [] ) ∷ ( mkMerge 1F 0F (seed 0) ∷ mkMerge 2F 0F (seed 1) ∷ mkMerge 3F 0F (seed 2) ∷ mkMerge 4F 0F (seed 3) ∷ mkMerge 5F 0F (seed 4) ∷ mkMerge 6F 0F (seed 5) ∷ mkMerge 7F 0F (seed 6) ∷ mkMerge 8F 0F (seed 7) ∷ mkMerge 9F 0F (seed 8) ∷ mkMerge 10F 0F (seed 9) ∷ mkMerge 11F 0F (seed 10) ∷ mkMerge 12F 0F (seed 11) ∷ mkMerge 13F 0F (seed 12) ∷ mkMerge 14F 0F (seed 13) ∷ mkMerge 15F 0F (seed 14) ∷ [] ) ∷ ( mkMerge 1F 0F (seed 0) ∷ mkMerge 2F 0F (seed 1) ∷ mkMerge 3F 0F (seed 2) ∷ mkMerge 4F 0F (seed 3) ∷ mkMerge 5F 0F (seed 4) ∷ mkMerge 6F 0F (seed 5) ∷ mkMerge 7F 0F (seed 6) ∷ mkMerge 8F 0F (seed 7) ∷ mkMerge 9F 0F (seed 8) ∷ mkMerge 10F 0F (seed 9) ∷ mkMerge 11F 0F (seed 10) ∷ mkMerge 12F 0F (seed 11) ∷ mkMerge 13F 0F (seed 12) ∷ mkMerge 14F 0F (seed 13) ∷ mkMerge 15F 0F (seed 14) ∷ [] ) ∷ ( mkMerge 1F 0F (seed 0) ∷ mkMerge 2F 0F (seed 1) ∷ mkMerge 3F 0F (seed 2) ∷ mkMerge 4F 0F (seed 3) ∷ mkMerge 5F 0F (seed 4) ∷ mkMerge 6F 0F (seed 5) ∷ mkMerge 7F 0F (seed 6) ∷ mkMerge 8F 0F (seed 7) ∷ mkMerge 9F 0F (seed 8) ∷ mkMerge 10F 0F (seed 9) ∷ mkMerge 11F 0F (seed 10) ∷ mkMerge 12F 0F (seed 11) ∷ mkMerge 13F 0F (seed 12) ∷ mkMerge 14F 0F (seed 13) ∷ mkMerge 15F 0F (seed 14) ∷ [] ) ∷ [] ) ∷ []
The verification¶
One decision for the whole certificate, one for the meet-table match; both
compute to yes — that computation is the
re-verification of every engine claim above.
open LatticeCheck 𝑭 𝑺 certOK : LatticeCertOK cert certOK = from-yes (latticeCertOK? cert) certMeet : MeetMatches 𝑭 𝑺 𝑳 cert certMeet = from-yes (meetMatches? 𝑭 𝑺 𝑳 cert)
The headline theorems¶
The target lattice is decidably representable, witnessed by this algebra; and the certificate's congruence list is a complete Layer-D enumeration of the algebra's decidable congruences.
SLR33-Representableᵈ : Representableᵈ (toLattice 𝑳) SLR33-Representableᵈ = certRepresentableᵈ 𝑭 𝑺 𝑳 cert certOK certMeet SLR33-FiniteCongruencesᵈ : FiniteCongruencesᵈ 𝑨 SLR33-FiniteCongruencesᵈ = certFiniteCongruencesᵈ cert certOK