Prelude> infixl 6 *+*

<interactive>:10:10: error:
    The fixity signature for `*+*' lacks an accompanying binding

infixl 6 *+*
a *+* b = a^2 + b^2

-- 3 *+* 4

-- 3 (*+*) 4

(*+*) 3 4

Prelude> :l tut02.hs
[1 of 1] Compiling Main             ( tut02.hs, interpreted )

tut02.hs:8:1: error:
    Parse error: module header, import declaration
    or top-level declaration expected.
  |
8 | (*+*) 3 4
  | ^^^^^^^^^
Failed, no modules loaded.

let width = 512 
    
    height = 512
    
    g = [ 
      0x0003C712,
      0x00044814,  
      0x00044818,  
      0x0003CF94,  
      0x00004892,  
      0x00004891,  
      0x00038710,
      0x00000010,
      0x00000010
    ]

Prelude> :l card.hs
[1 of 1] Compiling Main             ( card.hs, interpreted )

card.hs:18:5: error:
    parse error (possibly incorrect indentation or mismatched brackets)
   |
18 |     ]
   |     ^
Failed, no modules loaded.

struct Vector {
	double x, y, z;
}

type Vector = (Double, Double, Double)

type Vector = (Double, Double, Double)

sum :: Vector -> Vector -> Vector
sum (x1, y1, z1) (x2, y2, z2) = (x1 + x2, y1 + y2, z1 + z2)

prod :: Vector -> Double -> Vector
prod (x, y, z) (r) = (r * x, r * y, r * z)

sprod :: Vector -> Vector -> Double
sprod (x1, y1, z1) (x2, y2, z2) = x1 * x2 + y1 * y2 + z1 * z2

norm :: Vector -> Vector
norm (x, y, z) = prod (x, y, z) ( 1.0 / sqrt( sprod( (x, y, z) (x, y, z) ) ) );