blob: 06facbd07f1dc728c7b401a53b534b20304b5794 (
plain) (
blame)
1
2
3
4
5
6
7
8
|
# read two lines using monadic I/O
# printf "i love\nmonads\n" | bruijn IO.bruijn
:import std/IO .
main get-line >>= [get-line >>= [return [0 2 1]]]
:test (main "i love\nmonads\n") ([0 [0 "i love" "monads"] [[0]]])
|
