snowflake :=
    Module[{a},
    a = Accumulate[{{0, 0.1}}~Join~RandomReal[{-1, 1}, {5, 2}]];
    a = a.Transpose@RotationMatrix[{a[[-1]], {0, 1}}];
    a = a~Join~Rest@Reverse[a.{{-1, 0}, {0, 1}}];
    Polygon[Flatten[a.RotationMatrix[# [Pi]/3] & /@ Range[6], 1]]];
    Graphics[{Black, snowflake}, Background -> White]
    Export[“test.pdf”, %];