scope
Dim pepa as Double
input ; pepa
Print pepa;
end scope