fungerande kod, use "Main.sml" och sen start ()