input 3
 input 0 . output :s(end)
 output =dupl(1,10000)
end