begin
integer
array
scurl, ecurl(1:20)
endofprogram