fn box(p, h, l, w) {
  myBox = startSketchOn('XY')
    |> startProfileAt(p, %)
    |> line(end = [0, l])
    |> line(end = [w, 0])
    |> line(end = [0, -l])
    |> close(%)
    |> extrude(length = h)

  return myBox
}

thing = box([0, 0], 3, 6, 10)