data Pin : Type
EndOfString : Pin
Forward : Fin 256 -> Pin
GoBack : Fin 256 -> Bits8 -> Pin
GoBack2 : Fin 256 -> Bits8 -> Bits8 -> Pin
Show Pin
data WayStep : Type
MkWayStep : Maybe Nat -> Vect 256 Pin -> WayStep
Show WayStep
way256 : IArray 256 WayStep