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