Marek's Snowman code

startshape SMILE

rule SMILE {
FACE { x 0 y 0 }
MOUTH { x -.5 y -.4 z 1 }
LBROW { x .7 y .5 z 1 r -180 size .5 }
LBROW { x -.2 y .5 z 1 r -180 size .5 }
BODY { x 0 y 0 }
RIGHTARM { x 1 y -2 }
LEFTARM { x -1 y -2 }
}

rule FACE {
CIRCLE { x 0 y 0 size 2 }
CIRCLE { x 0 y 0 size 1.8 b 1 }
CIRCLE { x .4 y .2 size .5 }
CIRCLE { x -.4 y .2 size .5 }
CIRCLE { x -.4 y .2 size .4 b 1 }
CIRCLE { x .4 y .2 size .4 b 1 }
CIRCLE { x .4 y .2 size .2  }
CIRCLE { x -.4 y .2 size .2  }
}

path MOUTH {
ARCTO { x 1 r .6 }
STROKE {}

}


path LBROW {
ARCTO { x 1 r 1 }
STROKE {}

}

rule BODY {
CIRCLE { x 0 y -2.1 size 2.3 }
CIRCLE { x 0 y -2.1 size 2. b 1 z 1 }
CIRCLE { x 0 y -4.1 size 2.6 }
CIRCLE { x 0 y -4.1 size 2.3 b 1 }
CIRCLE { x 0 y -4.1 size .5 }
CIRCLE { x 0 y -3.1 size .5 z 1 }
CIRCLE { x 0 y -3.1 size .5 z 1 }
CIRCLE { x 0 y -2.1 size .5 z 1 }
}


path RIGHTARM {
ARCTO { x 1 r 2  }
STROKE {}

}

path LEFTARM {
ARCTO { x -1 r 2 }
STROKE {}

}