alias sensor d0

define Solar -539224550

loop:
l r0 sensor Horizontal
sb Solar Horizontal r0

l r1 sensor Vertical
add r1 r1 90

sb Solar Vertical r1

yield
j loop