diff --git a/tket2/src/passes.rs b/tket2/src/passes.rs
index dcb0ae52..ea09c900 100644
--- a/tket2/src/passes.rs
+++ b/tket2/src/passes.rs
@@ -5,3 +5,6 @@ pub use commutation::{apply_greedy_commutation, PullForwardError};
 
 pub mod chunks;
 pub use chunks::CircuitChunks;
+
+pub mod tuple_unpack;
+pub use tuple_unpack::find_tuple_unpack_rewrites;
diff --git a/tket2/src/passes/tuple_unpack.rs b/tket2/src/passes/tuple_unpack.rs
new file mode 100644
index 00000000..6279fd8e
--- /dev/null
+++ b/tket2/src/passes/tuple_unpack.rs
@@ -0,0 +1,204 @@
+//! Quick pass for removing redundant tuple pack/unpack operations.
+
+use core::panic;
+
+use hugr::builder::{DFGBuilder, Dataflow, DataflowHugr};
+use hugr::ops::{OpTrait, OpType};
+use hugr::types::Type;
+use hugr::{HugrView, Node};
+use itertools::Itertools;
+
+use crate::circuit::Command;
+use crate::rewrite::{CircuitRewrite, Subcircuit};
+use crate::Circuit;
+
+/// Find tuple pack operations followed by tuple unpack operations
+/// and generate rewrites to remove them.
+pub fn find_tuple_unpack_rewrites(
+    circ: &Circuit<impl HugrView>,
+) -> impl Iterator<Item = CircuitRewrite> + '_ {
+    circ.commands().filter_map(|cmd| make_rewrite(circ, cmd))
+}
+
+fn make_rewrite<T: HugrView>(circ: &Circuit<T>, cmd: Command<T>) -> Option<CircuitRewrite> {
+    let cmd_optype = cmd.optype();
+    let tuple_node = cmd.node();
+    if !matches!(cmd_optype, OpType::MakeTuple(_)) {
+        return None;
+    }
+    let tuple_types = cmd_optype
+        .dataflow_signature()
+        .unwrap()
+        .input_types()
+        .to_vec();
+
+    // Make tuple should have a single output
+    let Ok((_, wire)) = cmd.output_wires().exactly_one() else {
+        panic!("MakeTuple at node {tuple_node} should have a single output wire.");
+    };
+
+    // See if it is followed by a tuple unpack
+    let links = circ
+        .hugr()
+        .linked_inputs(tuple_node, wire.source())
+        .map(|(neigh, _)| neigh)
+        .collect_vec();
+
+    if links.is_empty() {
+        return None;
+    }
+
+    let unpack_nodes = links
+        .iter()
+        .filter(|&&neigh| match circ.hugr().get_optype(neigh) {
+            OpType::UnpackTuple(_) => {
+                debug_assert_eq!(
+                    circ.hugr()
+                        .get_optype(neigh)
+                        .dataflow_signature()
+                        .unwrap()
+                        .output_types(),
+                    tuple_types
+                );
+                true
+            }
+            _ => false,
+        })
+        .copied()
+        .collect_vec();
+
+    if unpack_nodes.is_empty() {
+        return None;
+    }
+
+    // TODO: SimpleReplacement fails when replacements have multiports.
+    // We only support matching a single unpack for now.
+    //
+    // This can be removed once https://github.com/CQCL/hugr/pull/1191 gets released.
+    if unpack_nodes.len() > 1 {
+        return None;
+    }
+
+    // Remove all unpack operations, but only remove the pack operation if all neighbours are unpacks.
+    match links.len() == unpack_nodes.len() {
+        true => Some(remove_pack_unpack(
+            circ,
+            &tuple_types,
+            tuple_node,
+            unpack_nodes,
+        )),
+        false => {
+            // TODO: Add a rewrite to remove some of the unpack operations.
+            None
+        }
+    }
+}
+
+/// Returns a rewrite to remove a tuple pack operation that's only followed by unpack operations.
+fn remove_pack_unpack<T: HugrView>(
+    circ: &Circuit<T>,
+    tuple_types: &[Type],
+    pack_node: Node,
+    unpack_nodes: Vec<Node>,
+) -> CircuitRewrite {
+    let num_outputs = tuple_types.len() * unpack_nodes.len();
+
+    let mut nodes = unpack_nodes;
+    nodes.push(pack_node);
+    let subcirc = Subcircuit::try_from_nodes(nodes, circ).unwrap();
+
+    let replacement = DFGBuilder::new(subcirc.signature(circ)).unwrap();
+    let wires = replacement
+        .input_wires()
+        .cycle()
+        .take(num_outputs)
+        .collect_vec();
+    let replacement = replacement
+        .finish_prelude_hugr_with_outputs(wires)
+        .unwrap_or_else(|e| {
+            panic!("Failed to create replacement for removing tuple pack/unpack operations. {e}")
+        })
+        .into();
+
+    subcirc
+        .create_rewrite(circ, replacement)
+        .unwrap_or_else(|e| {
+            panic!("Failed to create rewrite for removing tuple pack/unpack operations. {e}")
+        })
+}
+
+#[cfg(test)]
+mod test {
+    use super::*;
+    use hugr::extension::prelude::{BOOL_T, QB_T};
+    use hugr::ops::{MakeTuple, UnpackTuple};
+    use hugr::type_row;
+    use hugr::types::FunctionType;
+    use rstest::{fixture, rstest};
+
+    #[fixture]
+    fn simple_pack_unpack() -> Circuit {
+        let mut h = DFGBuilder::new(FunctionType::new_endo(type_row![QB_T, BOOL_T])).unwrap();
+        let mut inps = h.input_wires();
+        let qb1 = inps.next().unwrap();
+        let b2 = inps.next().unwrap();
+
+        let op = MakeTuple::new(type_row![QB_T, BOOL_T]);
+        let [tuple] = h.add_dataflow_op(op, [qb1, b2]).unwrap().outputs_arr();
+
+        let op = UnpackTuple::new(type_row![QB_T, BOOL_T]);
+        let [qb1, b2] = h.add_dataflow_op(op, [tuple]).unwrap().outputs_arr();
+
+        h.finish_prelude_hugr_with_outputs([qb1, b2])
+            .unwrap()
+            .into()
+    }
+
+    #[fixture]
+    fn multi_unpack() -> Circuit {
+        let mut h = DFGBuilder::new(FunctionType::new(
+            type_row![BOOL_T, BOOL_T],
+            type_row![BOOL_T, BOOL_T, BOOL_T, BOOL_T],
+        ))
+        .unwrap();
+        let mut inps = h.input_wires();
+        let b1 = inps.next().unwrap();
+        let b2 = inps.next().unwrap();
+
+        let op = MakeTuple::new(type_row![BOOL_T, BOOL_T]);
+        let [tuple] = h.add_dataflow_op(op, [b1, b2]).unwrap().outputs_arr();
+
+        let op = UnpackTuple::new(type_row![BOOL_T, BOOL_T]);
+        let [b1, b2] = h.add_dataflow_op(op, [tuple]).unwrap().outputs_arr();
+
+        let op = UnpackTuple::new(type_row![BOOL_T, BOOL_T]);
+        let [b3, b4] = h.add_dataflow_op(op, [tuple]).unwrap().outputs_arr();
+
+        h.finish_prelude_hugr_with_outputs([b1, b2, b3, b4])
+            .unwrap()
+            .into()
+    }
+
+    #[rstest]
+    #[case::simple(simple_pack_unpack(), 1, 0)]
+    #[case::multi(multi_unpack(), 0, 3)]
+    fn test_pack_unpack(
+        #[case] mut circ: Circuit,
+        #[case] expected_rewrites: usize,
+        #[case] remaining_commands: usize,
+    ) -> Result<(), Box<dyn std::error::Error>> {
+        let mut num_rewrites = 0;
+        loop {
+            let Some(rewrite) = find_tuple_unpack_rewrites(&circ).next() else {
+                break;
+            };
+            num_rewrites += 1;
+            rewrite.apply(&mut circ)?;
+        }
+        assert_eq!(num_rewrites, expected_rewrites);
+
+        assert_eq!(circ.commands().count(), remaining_commands);
+
+        Ok(())
+    }
+}
diff --git a/tket2/src/rewrite.rs b/tket2/src/rewrite.rs
index 08c6d61e..15315261 100644
--- a/tket2/src/rewrite.rs
+++ b/tket2/src/rewrite.rs
@@ -13,6 +13,7 @@ use derive_more::{From, Into};
 use hugr::hugr::hugrmut::HugrMut;
 use hugr::hugr::views::sibling_subgraph::{InvalidReplacement, InvalidSubgraph};
 use hugr::hugr::views::ExtractHugr;
+use hugr::types::FunctionType;
 use hugr::{
     hugr::{views::SiblingSubgraph, Rewrite, SimpleReplacementError},
     SimpleReplacement,
@@ -50,6 +51,11 @@ impl Subcircuit {
         self.subgraph.node_count()
     }
 
+    /// The signature of the subcircuit.
+    pub fn signature(&self, circ: &Circuit<impl HugrView>) -> FunctionType {
+        self.subgraph.signature(circ.hugr())
+    }
+
     /// Create a rewrite rule to replace the subcircuit with a new circuit.
     ///
     /// # Parameters