save

/h {350 100 moveto} def

 50 10 200
 { h 400 exch lineto stroke} for

 390 -10 250
 { h 200 lineto stroke} for

 190 -10 50
 { h 250 exch lineto stroke} for

 260 10 390
 { h 50 lineto stroke} for

restore