!set exolist  =!char 1 to -2 of aire,airecarre,airerectangle,airetrirec,airetrirec2,airetrirec3,converaire,convaire2,converlong,probaire1,probaire2,probaire3,probaire4,probaire5,probperim1,probperim2,probperim3,probperim4,probperim5,perimetre1,perimetre2,perimcarre,perimcercle,perimrectangle,
!set titlelist=!char 1 to -2 of Aire (Quadrillage),Aire d'un carr,Aire d'un rectangle,Aire d'un metre=\nbelepos*\plargeur}
\integer{ilongueur=randint(\perimetre/4..\perimetre/3)}
\real{largeur=(\perimetre/2-\ilongueur)/100}
\real{longueur=\ilongueur/100}
\real{longroul=\hauteur*\nbleparroul}
\real{peri=\perimetre/100}
\text{tperi=wims(translate . to , in \peri)}
\text{tlongueur=wims(translate . to , in \longueur)}
\text{tlargeur=wims(translate . to , in \largeur)}
\text{thauteur=wims(translate . to , in \hauteur)}
\text{tlongroul=wims(translate . to , in \longroul)}

\statement{
On veut papiter une pice de \tlongueur m sur \tlargeur m, et