scmCloseInputPort  []            = return$ tooFewArgs  "close-input-port"
scmCloseInputPort  []            = return$ tooFewArgs  "close-input-port"
scmCloseInputPort  []            = return$ tooFewArgs  "close-input-port"