line-mode
read-nums
extract-array
-
180
+
@1
double
%
@2
swap
-