playing with scheme's getopt-long