(assembly "PresentationFramework")
(load "cts:System.IO")
(load "cts:System.Threading")
(load "cts:System.Windows")
(load "cts:System.Windows.Markup")

Thread.(new (\ []
	Application.Current
		.(let app
			FileStream.(new "MainWindow.xaml" FileMode.Open FileAccess.Read)
				.(let fs
					XamlReader.(Load fs)
						.(let window
							fs.(Dispose)
							(= app.MainWindow window.(to Window))
							app.(Run)
						)
				)
		)
))
.(let t
	t.(SetApartmentState ApartmentState.STA)
	t.(Start)
	t.(Join)
)