set time 400
paper 100
pen 0

repeat a 0 time
{
   pen (a * 100/time)
   //draw torso
   line (50-a* 25 /time) 70 50 30
   line (50+a* 25 /time) 70 50 30

   //draw head
   line (50-a* 10 /time) 85 50 100
   line (50+a* 10 /time) 85 50 100
   line (50-a* 10 /time) 85 50 70
   line (50+a* 10 /time) 85 50 70

   //draw legs
   line (40-a* 10 /time) 0 (50-a* 5 /time) (30+a* 7 /time)
   line (60+a* 10 /time) 0 (50+a* 5 /time) (30+a* 7 /time)

   //draw left arm
   line (35-a* 10 /time) (60+a* 10 /time) (32-a* 7 /time) 45

   //draw right arm
   line (65+a* 10 /time) 70 (68+a* 7 /time) 85

}