applications.collages.collageAlgebra:
  {   
    p = { filledCurve((0,0) left (-.1,.4) right (.1,.4),
                               (0,1) right (-.3,.4),
                               (0,2) left (-.1,-.4) right (.1,-.4),
                               (0,1) left (.3,.4)) },
    pr = { filledCurve((0,0) left (-.1,.4) right (.1,.4),
                                (0,.9) right (-.3,.4),
                                (0,2) left (-.1,-.4) right (.1,-.4),
                                (0,1.1) left (.3,.4)) },
    pl = { filledCurve((0,0) left (-.1,.4) right (.1,.4),
                                (0,1.1) right (-.3,.4),
                                (0,2) left (-.1,-.4) right (.1,-.4),
                                (0,.9) left (.3,.4)) },

    S = { closedCurve((0,0) left (-.1,.4) right (.1,.4),
                               (0,1) left (.3,-.4) right (-.3,-.4)) },
    L = { filledCurve((0,0) left (-.1,.4) right (.1,.4),
                                (0,1) left (.3,-.4) right (-.3,-.4))[.5] } + #S,
    R = { filledCurve((0,0) left (-.1,.4) right (.1,.4),
                                (0,1) left (.3,-.4) right (-.3,-.4))[.75] } + #S,
    
    f1 = scale(.8) . rotate(25),
    f2 = scale(.7) . rotate(-15),
    f3 = translate(0,2) . scale(.8) . rotate(25),
    f4 = translate(0,2) . scale(.7) . rotate(-15),
    F = <#pl transformed by f1, #pr transformed by f2, f3, f4>,
    F1 = <#pl transformed by f1, f3>,
    F2 = <#pr transformed by f2, f4>,
    
    g1 = scale(.7) . rotate(15),
    g2 = scale(.8) . rotate(-25),
    g3 = translate(0,2) . scale(.7) . rotate(15),
    g4 = translate(0,2) . scale(.8) . rotate(-25),
    G = <#pl transformed by g1, #pr transformed by g2, g3, g4>,
    G1 = <#pl transformed by g1, g3>,
    G2 = <#pr transformed by g2, g4>,
    
    move = translate(0,-4.5),
    move = <move>
    
  }
