!set exolist  =!char 1 to -2 of pentagon,pentagram,pyramid3,pyramid1,cross,tie,pyramid1b,V,twosqr,pyramid2,stool,triangle,asterisk,cube,H,IXI,pyramid1c,pizza3,house,bigsquare,grill,threesqr,diag,foursqr,M,pyramid1d,pyramid2b,pizza4,W,
!set titlelist=!char 1 to -2 of ~10: Pentgono,~10: Pentagrama,~10: Pirmide III,3: Pirmide I,5: Cruz,5: Pajarita,5: Pirmide Ib,5: V,6: Dos cuadrados,6: Pirmide II,6: Taburete,6: Tringulo,7: Asterisco,7: Cubo,7: H,7: Pajarita,7: Pirmide Ic,7: Pizza 3,8: Casa,8: Cuadrado,8: Rejilla,8: Tres cuadrados,9: Cuadrado + diagonales,9: Cuatro cuadrados,9: M,9: Pirmide Id,9: Pirmide IIb,9: Pizza 4,9: W,
!set exototal =!itemcnt $exolist

