sub seq_foreach {
        my ($seq, $fn) = @_;
        while (my @val = $seq->()) {
            $fn->(@val);
        }
        $seq;
    }