part001 = startSketchOn('XY')
  |> startProfileAt([0, 0], %)
  |> line(end = [1, 3.82], tag = $seg01)
  |> angledLineToX([-angleToMatchLengthY(seg01, 3, %), 3], %)
  |> close(%)
  |> extrude(length = 10)
