line-mode
read-nums
extract-array
-
180
dup
rot
+
@0
double
%
-