1. //Utkarsh.25dec
  2. #include <bits/stdc++.h>
  3. #define ll long long int
  4. #define pb push_back
  5. #define mp make_pair
  6. #define mod 1000000007
  7. #define vl vector <ll>
  8. #define all(c) (c).begin(),(c).end()
  9. using namespace std;
  10. ll power(ll a,ll b) {ll res=1;a%=mod; assert(b>=0); for(;b;b>>=1){if(b&1)res=res*a%mod;a=a*a%mod;}return res;}
  11. ll modInverse(ll a){return power(a,mod-2);}
  12. const int N=500023;
  13. bool vis[N];
  14. vector <int> adj[N];
  15. long long readInt(long long l,long long r,char endd){
  16.     long long x=0;
  17.     int cnt=0;
  18.     int fi=-1;
  19.     bool is_neg=false;
  20.     while(true){
  21.         char g=getchar();
  22.         if(g=='-'){
  23.             assert(fi==-1);
  24.             is_neg=true;
  25.             continue;
  26.         }
  27.         if('0'<=g && g<='9'){
  28.             x*=10;
  29.             x+=g-'0';
  30.             if(cnt==0){
  31.                 fi=g-'0';
  32.             }
  33.             cnt++;
  34.             assert(fi!=0 || cnt==1);
  35.             assert(fi!=0 || is_neg==false);
  36.  
  37.             assert(!(cnt>19 || ( cnt==19 && fi>1) ));
  38.         } else if(g==endd){
  39.             if(is_neg){
  40.                 x= -x;
  41.             }
  42.  
  43.             if(!(l <= x && x <= r))
  44.             {
  45.                 cerr << l << ' ' << r << ' ' << x << '\n';
  46.                 assert(1 == 0);
  47.             }
  48.  
  49.             return x;
  50.         } else {
  51.             assert(false);
  52.         }
  53.     }
  54. }
  55. string readString(int l,int r,char endd){
  56.     string ret="";
  57.     int cnt=0;
  58.     while(true){
  59.         char g=getchar();
  60.         assert(g!=-1);
  61.         if(g==endd){
  62.             break;
  63.         }
  64.         cnt++;
  65.         ret+=g;
  66.     }
  67.     assert(l<=cnt && cnt<=r);
  68.     return ret;
  69. }
  70. long long readIntSp(long long l,long long r){
  71.     return readInt(l,r,' ');
  72. }
  73. long long readIntLn(long long l,long long r){
  74.     return readInt(l,r,'\n');
  75. }
  76. string readStringLn(int l,int r){
  77.     return readString(l,r,'\n');
  78. }
  79. string readStringSp(int l,int r){
  80.     return readString(l,r,' ');
  81. }
  82. void solve()
  83. {
  84.     int n=readInt(2,1000,'\n');
  85.     int A[n+1]={0};
  86.     for(int i=1;i<=n;i++)
  87.     {
  88.         if(i==n)
  89.             A[i]=readInt(1,100000,'\n');
  90.         else
  91.             A[i]=readInt(1,100000,' ');
  92.     }
  93.     vector <vector <int>> seq;
  94.     vector <int> ele;
  95.     while(true)
  96.     {
  97.         int mx=0;
  98.         for(int i=1;i<=n;i++)
  99.             mx=max(mx,A[i]);
  100.         if(mx==0)
  101.             break;
  102.         vector <int> fun;
  103.         int indx=0,mini=1e9;
  104.         for(int i=1;i<=n;i++)
  105.         {
  106.             if(A[i]>mx/2)
  107.             {
  108.                 fun.pb(i);
  109.                 if(mini>A[i])
  110.                 {
  111.                     mini=A[i];
  112.                     indx=i;
  113.                 }
  114.             }
  115.         }
  116.         ele.pb(indx);
  117.         seq.pb(fun);
  118.         for(auto it:fun)
  119.             A[it]-=mini;
  120.     }
  121.     cout<<seq.size()<<'\n';
  122.     for(int i=0;i<seq.size();i++)
  123.     {
  124.         cout<<seq[i].size()<<'\n';
  125.         for(auto x:seq[i])
  126.             cout<<x<<' ';
  127.         cout<<'\n';
  128.         cout<<"- "<<ele[i]<<'\n';
  129.     }
  130. }
  131. int main()
  132. {
  133.     #ifndef ONLINE_JUDGE
  134.     freopen("input.txt", "r", stdin);
  135.     freopen("output.txt", "w", stdout);
  136.     #endif
  137.     ios_base::sync_with_stdio(false);
  138.     cin.tie(NULL),cout.tie(NULL);
  139.     int T=1;
  140.     //cin>>T;
  141.     while(T--)
  142.         solve();
  143.     assert(getchar()==-1);
  144.     cerr << "Time : " << 1000 * ((double)clock()) / (double)CLOCKS_PER_SEC << "ms\n";
  145. }