Mars sample program (Download)
#!/usr/bin/env mars
# Name Repeat
import prelude
def main() :: io Num:
var l :: Array(Num)
print_string("What is your name? ")
l = get_line()
if l == "":
print_string("You forgot to enter a name!\n")
else:
print_string("Hello, ")
print_string(l)
print_string("!\n")
return 0