Gingerbread Man

Graphics[
 Table[
  {ColorData["DarkRainbow"][RandomReal[]], Point[
    Map[RotationTransform[5 Pi/4],
     NestList[
      Function[p,
       With[{x = p[[1]], y = p[[2]]}, {1 - y + Abs[x], x}]],
      RandomReal[{-2, 8}, 2], 1000]]
    ]}, {i, 100}], PlotRange -> {{-5, 5}, {-10, 4}}
 ]