$module Reverse;

$use StdIO;

$public $func Reverse e = e;

Reverse {
	s1 e2 = <Reverse e2> s1;
	= ;
};

$func Reverse1 e = e;

Reverse1 e1 = <Reverse2 (e1) ()>;

$func Reverse2 (e) (e) = e;

Reverse2 {
	(s1 e2) (e3) = <Reverse2 (e2) (s1 e3)>;
	(     ) (e3) = e3;
};

$func ReverseWords e = e;

ReverseWords {
	e1 ' ' e2 = <Reverse e1> ' ' <ReverseWords e2>;
	e3 = <Reverse e3>;
};

$func Main = e;

Main = <PrintLn <ReverseWords <ReadLine>>>;