lpile
lpile : LPILE { $$ = ct; } ;
| lpile '{' list '}' { lpile('L', $1, ct); ct = $1; }
| cpile '{' list '}' { lpile('C', $1, ct); ct = $1; }
| rpile '{' list '}' { lpile('R', $1, ct); ct = $1; }
| pile '{' list '}' { lpile('-', $1, ct); ct = $1; }
lpile(lp[j+lp[j]+1], j+1, j+lp[j]+1);