procedure main()
timef(perfectnumbers)
end

procedure perfectnumbers()
...