
		/**   Floor Function Pretty Printing   **/
/*A: K McIsaac*/
/*S: University of Western Australia, Nedlands 6009, Australia*/
/*D: November 1986 */
/*K: Floor Function, Pretty printing */

/* Gives a compact readable printing format for the Floor Function*/

_Floor[Pr] : Tier[{[$x] :: Fmt[,"[",$x,"]"]}]

/*E:
SMP 1.5.0   (May 14 1986)
Thu Nov  6 12:56:59 1986


#I[1]::  <XFloorPR

#I[2]::  <XSumPR

#I[3]::  Sum[a^i,{i,0,Floor[(x+y)/2]}]

	  x + y
	 [-----]
	    2
#O[3]:*  ---       i
	 >       (a )
	 ---
	 i=0

#I[4]::  <end>
*/
