3D Square

to 3dsquare :size
  fd :size
  rt 90
  fd :size
  rt 90
  fd :size
  rt 90
  fd :size
  rt 90
  fd :size
  rt 45
  fd :size
  rt 45
  fd :size
  rt 135
  fd :size
  bk :size
  lt 45
  fd :size
  rt 135
  lt 135
  rt 45
  fd :size
  rt 135
  lt 45
  ht
end

3dsquare 100