First sml code :)