// time = 0.451 seconds

data[90]:=[*
<90, 1, 1, [ 1, 1, -1 ], 0, [
<2, x + 1>,
<3, x>,
<5, x - 1>,
<7, x - 2>,
<11, x - 6>,
<13, x + 4>,
<17, x + 6>,
<19, x + 4>
]>,
<90, 2, 1, [ -1, 1, 1 ], 0, [
<2, x - 1>,
<3, x>,
<5, x + 1>,
<7, x - 2>,
<11, x + 6>,
<13, x + 4>,
<17, x - 6>,
<19, x + 4>
]>,
<90, 3, 1, [ -1, -1, -1 ], 0, [
<2, x - 1>,
<3, x>,
<5, x - 1>,
<7, x + 4>,
<11, x>,
<13, x - 2>,
<17, x + 6>,
<19, x + 4>
]>
*];