instruction :: InstructionPos -> Instruction
instruction (InstructionPos i _ _) = i
instruction :: InstructionPos -> Instruction
instruction (InstructionPos i _ _) = i
instruction (InstructionPos i _ _) = i