rTape :: Tape t -- ^ The tape
      -> t      -- ^ The element currently pointed by the pointer
rTape (Tape _ current _) = current
rTape :: Tape t -- ^ The tape
      -> t
rTape (Tape _ current _) = current
rTape (Tape _ current _) = current