Initial calc code.Got tk working