ll_new( $x, < any perl expression > ) #### ll_new( $x, memoize( sub { < any perl expression > } ) ) #### ll_new( $x, sub { < any perl expression > } ) #### $fibs = ll_new( 0, memoize ( sub { ll_new( 1, memoize ( sub { ll_add( tail( $fibs ), $fibs ); } ) ); } ) ); #### $fibs = ll_new( 0, ll_new( 1, ll_add( tail( $fibs ), $fibs ) ) ); #### fibs = 0:1:[a+b| (a,b) <- zip fibs (tail fibs) ]