#include <bits/stdc++.h>
#define ll long long
#define ld long double
#define nl "\n"
#define OO 0x3f3f3f3f
const ll dx[] = {0, 0, 1, -1, -1, -1, 1, 1};
const ll dy[] = {1, -1, 0, 0, 1, -1, 1, -1};
const ll dir[] = {0, 1, 2, 3};
using namespace std;
void ta2to2a()
{
    ios_base::sync_with_stdio(false), cout.tie(nullptr), cin.tie(nullptr);
    if (fopen("input.txt", "r"))
    {
        freopen("input.txt", "r", stdin);
        freopen("output.txt", "w", stdout);
    }
}
map<ll,ll>m;
map<ll,vector<ll>>mp;
void divisors(ll n)
{
    for (ll i=1; i*i<=n; i++)
    {
        while (n%i==0 && m[i])
        {
            mp[n].push_back(i);
            m[i]--;
        }
        while (m[n/i] && n%i==0)
        {
            mp[n].push_back(n/i);
            m[n/i]--;
        }
    }
}
int main()
{
    ta2to2a();
    ll n;
    cin >> n;
    vector<ll> a(n);
    for (ll i = 0; i < n; i++)
    {
        cin >> a[i];
        m[a[i]]++;
    }
    sort(a.begin(), a.end());
    for (ll i=n-1; i>=0; i--)
    {
        if (m[a[i]])divisors(a[i]);
    }
    cout<<mp.size()<<endl;
    for (auto i : mp)
    {
        cout<<i.second.size()<<" ";
        for (auto j : i.second)
        {
            cout<<j<<" ";
        }
        cout<<endl;
    }
}