(*
 * SPDX-FileCopyrightText: Chris Pressey, the original author of this work, has dedicated it to the public domain.
 * For more information, please refer to <https://unlicense.org/>
 * SPDX-License-Identifier: Unlicense
 *)

fun show_arg () =
  case CommandLine.arguments () of
      [arg] => print ("The argument is " ^ arg ^ "\n")
    | _     => print "Usage: mosmlout arg\n\n"

fun main() =
  show_arg()