Problem:
Score : 100 points

Problem Statement

You are given a directed graph with N vertices and M edges, not necessarily simple. The i-th edge is oriented from the vertex a_i to the vertex b_i.
Divide this graph into strongly connected components and print them in their topological order.

Constraints

1 \leq N \leq 500,000

1 \leq M \leq 500,000

0 \leq a_i, b_i < N

Input

Input is given from Standard Input in the following format:

N M
a_0 b_0
a_1 b_1
:
a_{M - 1} b_{M - 1}

Output

Print 1+K lines, where K is the number of strongly connected components.
Print K on the first line.
Print the information of each strongly connected component in next K lines in the following format, where l is the number of vertices in the strongly connected component and v_i is the index of the vertex in it.

l v_0 v_1 ... v_{l-1}

Here, for each edge (a_i, b_i), b_i should not appear in earlier line than a_i.

If there are multiple correct output, print any of them.

Sample Input 1

6 7
1 4
5 2
3 0
5 5
4 1
0 3
4 2

Sample Output 1

4
1 5
2 4 1
1 2
2 3 0

Solution in C++ (GCC 9.2.1) (judge verdict: Accepted)

#include<bits/stdc++.h>
using namespace std;
#define rep(i,n) for(ll i=0;i<n;i++)
#define repl(i,l,r) for(ll i=(l);i<(r);i++)
#define per(i,n) for(ll i=n-1;i>=0;i--)
#define perl(i,r,l) for(ll i=r-1;i>=l;i--)
#define fi first
#define se second
#define pb push_back
#define ins insert
#define pqueue(x) priority_queue<x,vector<x>,greater<x>>
#define all(x) (x).begin(),(x).end()
#define CST(x) cout<<fixed<<setprecision(x)
#define vtpl(x,y,z) vector<tuple<x,y,z>>
#define rev(x) reverse(x);
using ll=long long;
using vl=vector<ll>;
using vvl=vector<vector<ll>>;
using pl=pair<ll,ll>;
using vpl=vector<pl>;
using vvpl=vector<vpl>;
const ll MOD=1000000007;
const ll MOD9=998244353;
const int inf=1e9+10;
const ll INF=4e18;
const ll dy[8]={1,0,-1,0,1,1,-1,-1};
const ll dx[8]={0,-1,0,1,1,-1,1,-1};
template<class T> inline bool chmin(T& a, T b) {
    if (a > b) {
        a = b;
        return true;
    }
    return false;
}
template<class T> inline bool chmax(T& a, T b) {
    if (a < b) {
        a = b;
        return true;
    }
    return false;
}

struct SCC{
    int n;
    vector<vector<int>> g,rg;
    vector<int> vs,cmp;
    vector<bool> used;
    SCC(int _n){
        n=_n;
        g=vector<vector<int>>(n);rg=g;
        cmp=vector<int>(n);used=vector<bool>(n);
    }
    void add_edge(int f, int t){
        g[f].push_back(t);
        rg[t].push_back(f);
    }
    int init(){
        rep(i,n)if(!used[i])dfs(i);
        int k=0;
        used=vector<bool>(n,false);
        per(i,n){
            if(!used[vs[i]]){
                rdfs(vs[i],k);
                k++;
            }
        }
        return k;
    }
    private:
    void dfs(int v){
        used[v]=true;
        rep(i,g[v].size()){
            if(!used[g[v][i]])dfs(g[v][i]);
        }
        vs.push_back(v);
    }
    void rdfs(int v, int k){
        used[v]=true;cmp[v]=k;
        rep(i,rg[v].size()){
            if(!used[rg[v][i]]){
                rdfs(rg[v][i],k);
            }
        }
    }
};

int main(){
    ll n,m;cin >> n>>m;
    SCC g(n);
    rep(i,m){
        ll a,b;cin >> a >> b;
        g.add_edge(a,b);
    }
    int s=g.init();
    vvl ans(s);
    rep(i,n){
        ans[g.cmp[i]].pb(i);
    }
    cout << s <<endl;
    rep(i,s){
        cout << ans[i].size() <<" ";
        for(auto p:ans[i])cout << p <<" ";cout << endl;
    }
}