let in_file = "./data/MRbrain.40." ++ color
let out_file = "MRbrain.40." ++ color ++ ".out"
mridata <- read_values_3d mri_shape in_file
let in_file = "./data/MRbrain.40." ++ color
let out_file = "MRbrain.40." ++ color ++ ".out"
mridata <- read_values_3d mri_shape in_file