# accept a filename on the commandline, read it and print it out to screen
# only ascii right now, just like the rest of Mu

fn main _args: (addr array (addr array byte)) -> exit-status/ebx: int {
  var args/eax: (addr array (addr array byte)) <- copy _args
$main-body: {
    var n/eax: int <- length args
    compare n, 1
    {
      break-if->
      print-string "usage: cat <filename>\n"
      break $main-body
    }
    {
      break-if-<=
      print-string "success\n"
    }
  }
  exit-status <- copy 0
}