{
  support <- 1:40
  plot(support, dgeom(support, 0.5), type="l")
  points(support, dgeom(support, 0.3), type="l")
  points(support, dgeom(support, 0.1), type="l")
}