$bgcol = lightgray

define l_H {
  line down 4 then right 1 then \
  up 1.5 then right 1 then down 1.5 then right 1 then \
  up 4 then left 1 then down 1.5 then left 1 then up 1.5 then close \
  fill $bgcol
}

define l_A {
  line down 4 left 1.5 then right 0.75 then up 1.5 right 0.5 then \
  right 0.5 then down 1.5 right 0.5 then right 0.75 then \
  close fill $bgcol
  line from 1.50 below previous line.start down 0.5 left 0.2 \
  then right 0.4 then close fill white
}

define l_P {
  line right 3 then down 3 then left 2 then down 1 \
  then left 1 then close fill $bgcol
  box wid 1 ht 1 at previous line.start + (1.5, -1.5) fill white
}

define l_Y {
  line left 1 then down 2 right 1 then down 2 then \
      right 1 then up 2 then right 1 up 2 then left 1 then \
      down 1.5 left 0.5 then close fill $bgcol

}

define l_B {
  line right 1.8 then right 0.2 down 0.2 then down 1.8 then \
     left 0.2 down 0.15 then right 0.2 down 0.15 then \
     down 1.8 then down 0.2 left 0.2 then left 1.8 then \
     close fill $bgcol
     box wid 0.5 ht 1 at previous line.start + (1.0, -1.15) fill white
     box same at previous line.start + (1.0, -3.10) 
}

define l_I {
  move down 0.1
  box wid 1 ht 4.0 fill $bgcol
}

define l_R {
  line right 1.8 then right 0.2 down 0.2 then down 1.8 then \
     left 0.2 down 0.15 then right 0.2 down 0.15 then \
     down 2.0 then left 0.7 then up 2.0 then left 0.5 then down 2.0 \
     then left 0.8 then close fill $bgcol
     box wid 0.5 ht 1 at previous line.start + (1.0, -1.15) fill white
}

define l_T {
  line right 3 then down 1 then left 1 then down 3.2 then \
    left 1 then up 3.2 then left 1 then close fill $bgcol
}

define l_D {
  line right 2.7 then right 0.3 down 0.3 then down 3.7 then down 0.3 left 0.3 then left 1.7 then \
  then left 1 then close fill $bgcol
  box wid 1 ht 2.3 at previous line.start + (1.5, -2.15) fill white
}

l_H()
  move from previous line.ne + (1.5, 0)
l_A()
  move from 2nd previous line.start + (1.5, 0)
l_P()
  move from previous line.start + (3.5, 0)
l_P()
  move from previous line.start + (4.0, 0)
l_Y()

  move down from first line.sw + (0, -1)

l_B()
  move right from previous line.start + (2.5, 0)
l_I()
  move right from previous box.ne + (0, 0.1)
l_R()
  move right from previous line.start + (2, 0)
l_T()
  move right from previous line.start + (3, 0)
l_H()
  move right from previous line.start + (3, 0)
l_D()
  move right from previous line.start + (4.5, 0)
l_A()
  move right from previous line.start + (1.5, +1.5)
l_Y()
  
  move down from 7th line.sw + (0, -1)

l_D()
  move right from previous line.start + (3.0, 0)
l_R()
  move right from previous line.start + (2, -0.15)
l_H()

// To make everything small
move right 80
dot rad 0.01