ap hip :a :r :c
mudecl :c
arco :a :r
atr "r :r+10
se :r>200 [pare]
atr "c :c+1
se :c>14 [atr "c 0]
hip :a :r :c
fim