link "../ilib/radcon"

procedure main()
   write(exbase10(15,8))
   write(exbase10(-15,8))
   write(inbase10("101",2))
   write(inbase10("-101",2))
   write(radcon("101",2,8))
   write(radcon("-101",2,8))
   write(radcon(1,1,10))
   write(radcon(0,2,10))
end