Pensieve header: NumericArray, WebImage, StartWebSession, WebExecute.

z=NumericArray[Range[2^20], "UnsignedInteger32"]

z[[34]]

z[[34]]=14

WebImage["http://drorbn.net"]

session=StartWebSession["Firefox"]

WebExecute[session,"OpenPage"->"http://drorbn.net/mo20"]

WebExecute[session, "PageHyperlinks"]

WebExecute[session, "PageHyperlinks"]

With[{c1=0.25,c2=0.618},ineqs={{c1+w[1]+x[1]≤x[2],c1+w[1]+x[1]≤x[3],c1+w[1]+x[1]≤x[4],c1+w[1]+x[1]≤x[5],c1+w[1]+x[1]≤x[6],c1+w[1]+x[1]≤x[7],c1+w[2]+x[2]≤x[3],c1+w[4]+x[4]≤x[5],c1+w[2]+x[2]≤x[3],c1+w[2]+x[2]≤x[5],c1+w[2]+x[2]≤x[7],c1+w[4]+x[4]≤x[3],c1+w[4]+x[4]≤x[5],c1+w[4]+x[4]≤x[7],c1+w[6]+x[6]≤x[5],c1+w[8]+x[8]≤x[4],c1+w[9]+x[9]≤x[4],c1+w[10]+x[10]≤x[4],c1+w[10]+x[10]≤x[6],c1+w[6]+x[6]≤x[7],c1+w[8]+x[8]≤x[9],c1+w[8]+x[8]≤x[10],x[1]≥0,x[8]≥0,w[3]+x[3]≤𝓌,w[5]+x[5]≤𝓌,w[7]+x[7]≤𝓌},{c1+h[1]+y[1]≤y[6],c1+h[1]+y[1]≤y[7],c1+h[1]+y[1]≤y[8],c1+h[1]+y[1]≤y[9],c1+h[1]+y[1]≤y[10],c1+h[2]+y[2]≤y[4],c1+h[2]+y[2]≤y[9],c1+h[4]+y[4]≤y[6],c1+h[3]+y[3]≤y[5],c1+h[5]+y[5]≤y[7],c1+h[9]+y[9]≤y[6],c1+h[9]+y[9]≤y[10],y[1]≥0,y[2]≥0,y[3]≥0,h[6]+y[6]≤𝒽,h[7]+y[7]≤𝒽,h[8]+y[8]≤𝒽,h[10]+y[10]≤𝒽},{c2≤h[1]/w[1]≤(1+c2),c2≤h[2]/w[2]≤(1+c2),c2≤h[3]/w[3]≤(1+c2),c2≤h[4]/w[4]≤(1+c2),c2≤h[5]/w[5]≤(1+c2),c2≤h[6]/w[6]≤(1+c2),c2≤h[7]/w[7]≤(1+c2),c2≤h[8]/w[8]≤(1+c2),c2≤h[9]/w[9]≤(1+c2),c2≤h[10]/w[10]≤(1+c2)},{h[1] w[1]==1,h[2] w[2]==2,h[3] w[3]==3,h[4] w[4]==4,h[5] w[5]==5,h[6] w[6]==6,h[7] w[7]==7,h[8] w[8]==8,h[9] w[9]==9,h[10] w[10]==10}}];