To allow us to generate hugrs for something like ``` qid(X :: $) -> { X -o X } ```
To allow us to generate hugrs for something like