(executable
 (name test_program)
 (flags :standard -safe-string)
 (link_flags -linkall)
 (libraries utop))