tket2-hseries: add extension op for get_current_shot

[ss2165]

Could be added to qsystem for simplicity but may be more future proof to add to a new utils extension (that may grow).

type:

fn get_current_shot() -> usize;