let s => import 'stream';
let a => import 'arrays';

let fib n => (
	let reducer p n => [a.at p 1; + (a.at p 0) (a.at p 1)];
	s.range 1 n
	-> s.reduce [0; 1] reducer
	-> a.at 1
	;
);