alias sensor d0

define Solar -539224550

loop:
l r0 sensor Horizontal
sb Solar Horizontal r0

l r1 sensor Vertical
add r0 r0 90

sb Solar Vertical r1

yield
j loop